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PROLODGO 


El presente Gran Libro del Floppy para el CPC trata en esta 
segunda versión de las unidades de disco del CPC 464, del 
CPC 664 y del CPC 6128 conjuntamente. Se comentan fallos del 
sistema operativo y se solventan insuficiencias de la unidad 
de discos o, en su caso, del AMSDOS (mensajes de error en 
pantalla; gestión de ficheros relativos). 


La abundante información sobre almacenamiento secuencial de 
datos viene acompañada de múltiples programas a titulo de 
ejemplo y de ¡ilustraciones para el principiante. El 
programador interesado en aspectos más técnicos hallará en 
este libro, además, lo más digno de conocer de "su" floppy 
(programación del controlador, etc.). 


Los autores fueron considerablemente auxiliados por los 
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CAPITULO 1 
Introducción a la programación del DDI-1 


Los ordenadores CPC son aparatos apreciados y que se 
caracterizan por su buena relación calidad precio. Como ya 
sabe, existen en el mercado tres ordenadores CPC distintos. 
El libro del floppy ha de ocuparse de estos tres aparatos: 
el CPC 464, el CPC 664 y el CPC 6128. 


Si bien el aspecto exterior de los tres ordenadores es 
diferente (distinto teclado etc.), el servicio y 
mantenimiento de sus unidades de disco es (casi) totalmente 
idéntico. Sin embargo, y debido a las distintas versiones de 
BASIC se hace a veces necesario efectuar las oportunas 
distinciones. En caso de que no se indique lo contrario, lo 
dicho vale por igual para los tres ordenadores CPC. 


1.1 ¿Qué ofrece un floppy? 


Todos los ordenadores CPC (como cualquier otro ordenador ) 
pueden disponer tan sólo de una memoria temporal - debido a 
ello, los datos y programas introducidos en el ordenador se 
pierden al desconectar dicho ordenador. Para almacenar estas 
informaciones, para conservarlas, prácticamente, precisamos 
de memorias externas, como, por ejemplo, una unidad de 
casettes o bien una unidad de disco. 


El CPC 464 dispone de una unidad de cassettes — la unidad de 
disco es por tanto únicamente una memoria externa opcional 
(es decir, adicional). El CPC 664 y el CPC 6128 ya llevan la 
unidad de disco incorporada en la carcasa de sus teclados en 
la versión estándar. Las unidades de disco incorporadas no 
se diferencian en absoluto de las opcionales. 


Si posee usted un CPC 464, habrá descubierto ya en su manual 
que puede escribir en cassette a dos velocidades distintas. 
En la lectura, el ordenador se ajustará automáticamente a la 
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velocidad de lectura correspondiente. Mediante la orden 
SPEED WRITE puede usted obligar a la unidad de cassette la 
grabación a 1000 baudios o a 2000 baudios. ¿Y que significa 
baudio? Un baudio es igual a un bit por segundo. Por tanto, 
1000 baudios significa que el ordenador escribe en mel 
cassette, y más tarde lee 1000 bits por segundo. 1000 bits 
son 1000/8=125 bytes; correspondientemente, con 2000 baudios 
se leen Oo escriben 250 bytes por segundo. ¿Y porqué no se 
trabaja siempre con 2000 baudios?, se preguntará usted. Muy 
sencillo: Com 2000 baudios, el peligro de un error en 
escritura/lectura es mucho mayor, es decir, que en la 
lectura de un programa no se lea lo mismo que se escribió. 
Imaginese lo que ello representaria. 


Con un floppy tenemos la ventaja de que, tras un error de 
lectura se puede iniciar un nuevo intento de lectura (en una 
unidad de cassetes tendriamos que rebobinar manualmente o 
mediante una complicada mecánica). 


Norma: mente se efectúan hasta diez intentos de lectura de un 
sector antes de que se envie el mensaje de que el sector no 
es legible. En la unidad de cassettes, dicho mensaje ha de 
darse directamente después de la detección del error. 


En realidad, una unidad de cassette no está indicada en 
absoluto para el uso profesional. Los dos motivos 
fundamentales son: 


1. Una unidad de casette es demasiado lenta. Los programas 
profesionales son cada vez más amplios, y, por tanto, 
más largos, no es raro que ocupen 25 KBytes, lo que 
conlleva largos periodos de carga. Además, después aún 
han de almacenar y leerse datos con relativa frecuencia 
con lo que nos hallariamos con el segundo problema: 


2. Es muy dificil cargar ficheros concretos de casette. Un 
fichero representa, por ejemplo, un programa almacenado 
o datos almacenados. Si tiene varios programas cargados 
en una misma cinta, o bien ha de avanzar la cinta con 
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dificultad y sin exactitud y tratar después de cargar, 
o bien deja al ordenador la búsqueda del fichero -— lo 
que significa que leerá todos los demás ficheros. 


Estas desventajas de la utilización de cassettes se pueden 
reducir: los diskettes ofrecen un trabajo más rápido y un 
manejo más sencillo; son los medios de almacenamiento de 
forma laminar que se introducen en una unidad de disco. 


En grandes instalaciones se utilizan los discos duros, los 
hermanos mayores de los diskettes. Un disco duro puede tener 
una capacidad de hasta 50 MBytes (50 Mega = 50 millones). 
Pero aún hoy se copian datos importantes en las lentas 
cintas magnéticas, sobre todo cuando se desea archivar 
datos. Las cintas magnéticas son muy indicadas para ello 
porque ocupan poco espacio y son más baratas. 


Pero volviendo al CPC y la utilización de diskettes: 





Esto es lo que le promete el manual de su unidad de disco 
Amstrad DDI-1. Si posee un CPC 646 o bien un CPC 6128, la 
promesa se hace también extensiva a usted. Mediante este 
libro queremos ayudarle a hacer realidad esta introducción, 
mostrándole las posibilidades ocultas en este floppy. 


/ 
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1.2 El diskette 


1.2.1 El desarrollo 


Hasta hace poco, la mayoria de los diskettes median ocho 
pulgadas. Pero estos discos se mostraron poco prácticos; 
algo más tarde fueron desarrollados los discos de 5 1/4 
pulgadas, tal y como se utilizan actualmente en casi todos 
los ordenadores personales y domésticos usuales (IBM, Apple, 
Commodore 64, Sirius, etc.). Se produjo una revolución con 
el LISA de Apple y com el más reducido Macintosh, que 
utiliza discos de 3 1/2 pulgadas - el FDD de Amstrad trabaja 
incluso con discos de tres pulgadas. Asi pues, la 
miniaturización avanza notablemente incluso en el campo de 
la memoria externa. 


Dado que aún se producen muy pocos discos de tres pulgadas, 
estos son, hasta ahora, relativamente caros. Pero no habria 
de hacerse esperar una caida de precios, de modo que dentro 
de un año deberian costar aproximadamente la mitad. 


Seguro que conoce los discos de 5 1/4 pulgadas, que constan 
de una funda protectora de plástico flexible y de una placa 
interior a ella. En el caso de sus discos, estas placas 
están protegidas por motivos de seguridad mediante una 
carcasa estable de plástico. De esta manera ya no puede 
tocar con el dedo la abertura para el cabezal de 
escritura/lectura (figura 1, punto 1). Esta abertura esta 
provista de un cierre metálico que no se abre en tanto el 
disco no sea introducido en la unidad. 


Lo mismo vale para el agujero de alineación (punto 2). Los 
discos tienen un agujero de alineación para que la unidad de 
disco "sepa" siempre cuándo se repite una vuelta completa. 
Dichas perforaciones son reconocidas mediante un sensor 
óptico. En la práctica, sirven para la orientación. También 
existen unidades de disco que no las precisan, pero en 
cualquier caso son más lentas, ya que en tal caso, dicho 
problema ha de ser solucionado por software. 
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Ambas aberturas están aseguradas mediante un cierre 
plegable, que puede usted abrir con cuidado por una vez. 
Ponga el disco en su mano, con la cara B hacia arriba y la 
abertura de escritura/lectura desviada de usted. Siga la 
guia izquierda con la uña hasta que reconozca una corredera 
blanca de plástico (3). Tire de ella hacia usted hasta el 
tope. Observará que tanto la perforación de indice cómo la 
abertura para el cabezal de  escritura/lectura quedan 
liberadas. Ahora ve directamente el disco en si, en el que 
están almacenadas las informaciones. Pero no lo toque con 
los dedos. En el centro (4) se halla el agujero del eje 
motriz. Aqui es engarzado y girado el disco. Si con la otra 
mano “gira cuidadosamente la placa, verá también el agujero 
de alineación. Vuelva a cerrar por fin cuidadosamente el 
diskette soltando la corredera blanca de plástico. 


Finalmente cabria mencionar las dos perforaciones que sirven 
para protección de la escritura (5). En el borde izquierdo 
de cada disco se halla una perforación provista de una 
pequeña flecha. Sirve para proteger un disco de una eventual 
sobreescritura. Esto ya lo conoce de su cassette. Cuando la 
perforacion esté cerrada, puede escribir en el disco. Pero 
también puede deslizar la corredera de modo que el agujero 
quede abierto. En tal caso no se puede escribir en el disco, 
lo que tiene pleno sentido si en él tenemos valiosos 
programas que no deben ser borrados involuntariamente. En 
los discos de Amstrad que acompañan al aparato, en los que 
se hallam CP/M y LOGO, ha de deslizar la corredera de arriba 
hacia abajo. En discos de otros fabricantes esto funciona de 
un modo algo diferente, pero igualmente sencillo. En los 
discos que nosotros utilizamos, usted ha de mover la 
corredera de derecha a izquierda p.ej. con un boligrafo. 


Sus discos pueden ser utilizados por ambas caras. En los 
discos de 5 1/4 pulgadas se explicitaba esta versión con el 
titulo "Double Sided”; un lujo que habia que pagar en 
consecuencia. En su Amstrad se sobreentiende que puede 
utilizar ambas caras de su diskette. 
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En cada cara caben 180 KBytes, de modo que en un disco se 
pueden almacenar 360 KBytes O bien 360.000 caracteres en 
total. 


Para introducir un disco en la unidad simplemente ha de 
tomar el disco en su mano e introducirlo cuidadosamente en 
el sentido de la flecha, hasta que oiga el sonido de 
chasquido: el disco estará entonces firmemente encajado en 
la unidad. Para volver a sacar el disco de la unidad, oprima 
el pulsador que se halla a la derecha de la ranura de 
inserción. A este pulsador se lellama también pulsador 
eyector de disco. ¡No lo pulse jamás mientras su unidad de 
disco esté trabajando! Ello puede conducir a una pérdida 
total de los datos. 





Un disco nuevo todavia está "crudo", es, en cierto modo, una 
hoja en blanco. Ántes de poder utilizar un disco, éste ha de 
ser formateado, similarmente a una hoja en blanco, que ha de 
ser provista de unas lineas para una correcta escritura. 

El modo de formatear de nuevo un disco, le será explicado en 
el capitulo 1.3.3 (CP/M). 
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| <2) Agujero de alineación <1> Cabezal R/W 
ETIQUETA <47 Agujero del eje aotriz 


<3)> Corredera de plástico <5> Protección de 
escritura 


Figura 1. Disco de 3 pulgadas 
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1.2.2 El disco incluido en el equipo 


Al comprar la DDI-1 de Amstrad, y por supuesto también al 
comprar el CPC 664 o el CFC 6128, usted recibió un disco de 
sistema, O bien dos discos de sistema, en el caso del CPC 
6128. En este disco de sistema se halla el sistema operativo 
CP/M, y en la cara B se incluye, además, Dr.LOGO. El 
lenguaje LOGO ha obtenido una gran aceptación y fue creado 
para posibilitar la ””*programación””? de ordenadores incluso 
a niflos. Si desea usar el LOGO, hallará literatura 
especializada al respecto. 


En el manual adjunto al disco se hallan todas las órdenes 
LOGO aclaradas con ejemplos relativamente cortos. Dr. LOGO 
significa Digital Research LOGO y es una versión del LOGO 
adaptada al Amstrad CPC. El lenguaje de programación LOGO ha 
sido ampliado en algunas órdenes de sonido, para aprovechar 
las posibilidades sonoras del Amstrad CPC. Además, se 
incluyeron las teclas cursoras para la edición del programa. 
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1.3. Algo sobre CP/M 


1.3.1 ¿Que es CP/M? 


En la cara Á de su disco se halla el sistema operativo CF/M. 
CP/M significa Control Program for Microcomputers y sólo 
existe para ordenadores con los ampliamente difundidos 
procesadores 8080, 8085 y Z-80. Quien posea un ordenador que 
trabaje en CP/M tiene acceso amuuna amplia biblioteca de 
software de aplicaciones. El CP/M tiene la ventaja de que 
son precisas (len todo caso) muy pocas variaciones en la 
transcripción de los programas existentes para que puedan 
funcionar en otros ordenadores. 


Han aparecido ya, de hecho, diversas ofertas de software en 
CP/M, como por ejemplo WORDSTAR oO bien DBASE; estos 
programas, lamentablemente, aún resultan algo lentos en los 
ordenadores Amstrad. 


En CP/M existen tablas de salto bien definidas para 
determinadas subrutinas (por ejemplo para la salida a 
pantalla, etc.). Estas son puestas en funcionamiento por los 
programas en CP/M, de modo que sblo se precisa un ajuste 
minimo. Las rutinas básicas correspondientes son cargadas en 
cada ordenador mediante la activación de CP/M. 


Otra ventaja adicional es la de que el o usuario,que ha 
aprendido la utilización del CP/M puede trabajar con 
cualquier otro ordenador con este sistema operativo. Quien 
aprendió BASIC com el ordenador X, no puede programar en 
BASIC en el ordenador Y con pleno rendimiento. Este no es el 
caso del CP/M, que está fuertemente estandarizado. En su 
disco se halla el CP/M 2.2. Lo precisa, en cualquier caso, 
para formatear o copiar diskettes, pero también puede usarlo 
para otras aplicaciones; si desea aprender CP/M para ello, 
en las librerias encontrará gran variedad de literatura. 
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1.3.2 Carga y puesta en marcha del CP/M 


Una advertencia previa: Cuando trabaje con su floppy, 
conecte primero la unidad de disco, y luego el monitor y el 
ordenador. En caso contrario, en una comprobación interna en 
la que se reconocen todos los aparatos desconectados, el 
floppy se registraria como tal y todas las órdenes en un 
principio dirigidas a él, irian a parara lla unidad de 
cassete. 


Como usuario del Amstrad CPC 6128 recibió, junto al CP/M 2.2 
el CP/M 3.0 (plus). La diferencia entre CP/M 2.2 y CP/M 3.0 
es, fundamentalmente, la antigiiedad: CP/M 3.0 es la más 
reciente y reelaborada versión de CP/M 2.0. Con CP/M 2.2, 
por otra parte, ”**sólo””? resulta posible direccionar 64 
KBytes, mientras que com CP/M 3.0 puede usted direccionar 
128 KBytes. Además, CP/M 3.0 es algo más cómodo que su 
hermano mayor. Puede, por supuesto, utilizar también CP/M 
2.2 en su CPC 6128 -— por lo que nos centraremos en el 
presente libro en esta versión más **sencilla””? del CP/M. 
Una explicación adiciomal del CP/M 3.0 rebasaría a buen 
seguro los limites de este libro. Por lo tanto, cuando en lo 
sucesivo mencionemos el disco de sistema, nos estaremos 
refiriendo al disco de sistema del CP/M-2.2. 


Inserte pues el disco de sistema en la unidad de disco, de 
modo que la etiqueta sea visible desde fuera y la flecha con 
la inscripción "CP/M" apunte hacia arriba. Ahora introduzca 
ICPM. 


(Nota: Con 1 representamos la barra vertical que usted 
obtiene pulsando simultáneamente Shift y la tecla 3.) 
Por fin se carga en el ordenador el CP/M desde el disco. 


Obtendrá el siguiente mensaje: 


CPM 2.2 -— Amstrad Consumer Electronics plc. 
A> 
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A partir de ahora dejan de ser operativos los comandos 
BASIC. Pruébelo introduciendo por ejemplo: 


run 


A lo que el CP/M contestará mediante 


RUN? 

lo que significa tanto como  ””*pues el comando RUN no lo 
conozco””?. Ya habrá notado que en la primera columma se 
halla un "A>". Este es el llamado simbolo indicador del 


sistema, mediante el cual se indica que el ordenador esta 
esperando sus órdenes y que está conectada la unidad de 
disco A. Si sólo posee una unidad de disco obtendrá siempre 
este mensaje, si es usted propietario de dos unidades, 
existe además el simbolo indicador B>. 


Pero inténtelo ahora con una orden comprensible para el 
CP/M: 

dir 
Obtendrá instantáneamente en pantalla el indice del 


contenido del diskette. dir proviene de la palabra inglesa 
para indice del contenido, Directory. 
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1.3.3 Formateado de diskettes 


Formatear significa preparar un diskette crudo para la 
unidad de disco. Un diskette no formateado es para el floppy 
como una hoja de papel sobre la que hubiéramos escrito con 
tinta blanca. 


Para formatear un disco ha de entrar, desde CF/M, la 
siguiente orden: 


format 


En pantalla aparece: 


Please insert disc to be formatted into drive A 
then press any key 


Retire el disco de CP/M e introduzca el disco que desee 
formatear. Al formatear se pierden todas las informaciones 
eventualmente almacenadas en un disco, es decir, al 
formatear un disco, que ya habia sido formateado y en el 
cual habia usted almacenado programas u otras cosas, todo 
ello se pierde. Por ello se pide mucha atención al formatear 
ya que una vez formateado un disco, el comando no deberia 
volver a ser llamado. 


Cuando haya cambiado el disco, pulse cualquier tecla. El 
formateado comienza inmediatamente. Cada cara del disco es 
formateada con cuarenta pistas ordenadas concéntricamente al 
agujero del eje motriz, de la pista 0 a lla pista 39. La 
pista O es la más exterior, la pista 39 la más interior. 
Además de las pistas existen otras subdivisiones del disco, 
los sectores. El disco está dividido simultáneamente en 9 
sectores, comparables a los trozos de una tarta. 
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Sólo se puede leer del disco sector a sector. La división en 
pistas y sectores se damen. la mayoria de los sistemas de 


diskettes. 


Sector 





Figura 2. Pistas, bloques y sectores 
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En general hemos de diferenciar los siguientes conceptos: 
pista, sector, bloque y record. 


Una pista es, como ya se describió, un cuarentaavo del 
disco. Cada pista tiene 9 sectores, cada uno de los cuales 
comprende 512 Bytes. 

Pero para CP/M existe otra subdivisión, los llamados 
records. Un record comprende exactamente 128 Bytes. Un 
sector consta por tanto de 4 records. Esta división resulta 
necesaria por motivos de compatibilidad con CP/M. 


El AMSDOS reconoce todavia una última posibilidad de 
subdivisión; los bloques. Un bloque comprende 1024 Bytes, y 
consta por tanto de 2 sectores. Un bloque es la unidad 
minima a la que podemos referirnos en BASIC. 


Volvamos al tema en si, el formateado. 


Tras haber sido formateadas las cuarenta pistas, el sistema 
vuelve a manifestarse mediante: 


Do you want to format another disc (Y/N): 


Si desea formatear, p. ej, la otra cara del disco, responda 
con y por "yes=si";j pero también puede formatear cualquier 
otro disco si lo desea. 


El formateado puede repetirse tantas veces como se desee 
hasta que se responda a la pregunta de repetición con n por 
*no=no0"3 con ello el sistema le requerirá mediante: 


Please insert a CP/M system disc into drive A 
then press any key 


Ahora puede usted pulsar cualquier tecla, es decir, no ha de 
cambiar previamente el disco ya que el sistema ha situado el 
sistema CP/M en las dos pistas más exteriores al formatear 
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(pero mo ha incluido los ficheros de comando como por 
ejemplo la orden format). 


Cuando desee formatear un disco, éste ha de estar 
desprovisto de la protección de escritura. En caso contrario 
obtendrá el mensaje: 


Drive A: disc is write protected 
Retry, Ignore or Cancel”? 


Este mensaje le hace saber que el formateado no puede 
llevarse a cabo regularmente debido a la protección de 
escritura. Existen otros mensajes de error similares en los 
que puede elegir igualmente entre las opciones: 


a) Retry Si desea volver a intentarlo, pulse la 
tecla "r". 


b)> Ignore Si desea ignorar el mensaje de error del 
floppy, se sigue adelante con el trabajo. 
Pulse para ello la tecla "i". Pero esto es 
aconsejable muy raras veces, ya que en los 
comandos siguientes pueden aparecer unos 
efectos inesperados. 


c) Cancel Pulsando la tecla "c” se interrumpe el 
"proceso. También en nuestro caso deberia 
usarlo, y retirar la protección cuando se 
le pida. 


1.3.4 Copiar en CP/M 
En CP/M es muy sencillo copiar el contenido de todo un disco 
a otro. Si sblo dispone de una unidad de disco, introduzca 


el comando 


disccopy 
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Si dispusiera usted de dos unidades de disco, podria emplear 
la orden copydisc que trabaja a mayor velocidad. 


Tras haber introducido disccopy el ordenador se manifiesta 
mediante: 


Please insert source disc into drive A 
then press any key 


En caso de que obtenga en pantalla el mensaje 


FILECOPY? 


ello significa que no tiene el disco de CP/M en su unidad de 
disco. 


Extraiga el disco de CP/M de la unidad. Pero si desea copiar 
el disco de CP/M en si, lo cual deberia hacer al menos una 
vez, deje el disco de CP/M en la unidad y pulse una tecla. 


Copying started 
Reading track O to 7 


El ordenador lee ahora las 8 primeras pistas (=tracks) y las 
guarda en memoria. Cuando haya acabado con ello obtendrá 
usted el mensaje: 


Please insert destination disc into drive A 
then press any key 


Extraiga ahora el disco fuente de la unidad e introduzca 
usted el disco en el que han de ser copiados los ficheros. 
En caso de que este último disco no esté formateado o bien 
lo esté incorrectamente, resulta previamente formateado. De 
igual modo todos los datos que se hallen en el odisco 
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resultan sobreescritos, dado que se elabora uma copia 
completa del disco fuente. De hecho, en cuanto a contenido, 
la copia no puede distinguirse del original. 


Tras ¡introducir el disco y pulsar cualquier tecla obtendrá 
el mensaje: 


Writing track O to 7 


Repita el mismo proceso para las pistas (tracks) 8 a 15, 16 
a 23, 24 a 31 y 32 a 39. El disco habrá sido totalmente 
copiado, con lo que obtendrá el mensaje 


Do you want to copy another disc? (Y/N): 


Si mo desea copiar ningún disco más, introduzca N y siga las 
instrucciones de la pantalla. En el caso de desear otra 
copia, el proceso es idéntico al relatado. 


1.3.5 Copiar con dos unidades de disco 


Sólo puede utilizar la orden COPYDISC cuando disponga de dos 
unidades de disco. El modo de trabajo es similar al del 
comando DISCCOPY anteriormente descrito. La ventaja de esta 
orden es, como ya se mencionó, la de que no ha de estar 
cambiando constantemente los discos fuente y destino. 


También en este comando COPYDISC se formatea automáticamente 
el disco objeto si es necesario. Por lo demás, simplemente 
ha de ir siguiendo las instrucciones de la pantalla. 
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1.3.6 DISCCHK — Comprobación de discos 


Tras elaborar una copia puede usted comprobar si todo ha 
sido correctamente copiado; seria irritante, con el disco 
original estropeado, que también su copia fuese defectuosa, 
(lo que siempre puede ocurrir). Para comprobar los discos 
fuente y copia aplique el comando 


discchk. 


Siga después los comandos de pantalla que le reclamarán la 
introducción de los discos original y copia. Si se 
comprueban diferencias entre el disco original y el disco 
copia, obtendrá el mensaje 


Failed to verify destination disc correctly: 
track x sector y 


Ello no interrumpe la comparación de ambos discos, de modo 
que también se indicarán las diferencias posteriores que 
pudieran existir. Se comprueban siempre 8 pistas en 
secuencia. Si posee dos unidades de disco, la comparación es 
considerablemente más rápida y sencilla. Utilice en tal caso 
“el comando 


chkdi se 


Tan sólo ha de introducir los discos fuente y de copia 
siguiendo las instrucciones en pantalla, y ambos discos son 
comparados exactamente igual que con el comando discchk. 


De hecho, puede interrumpir todos los comandos CP/M pulsando 
simultáneamente [Ctr1J y la tecla "C". Si por ejemplo 
introdujo por error la orden FORMAT, mediante [Ctrl1J-C 
vuelve usted al modo de estado de entrada del CP/M. 
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He aqui otras funciones de control: 


Tctr1J3C = interrupción de la orden actual 

[Ctr1JS = retiene la salida a pantalla. Pulsando 
cualquier tecla puede usted reanudar la 
salida. 

[Ctr1J3P = se conmuta la salida a impresora, O sea 
que la salida a pantalla pasa a impresora 

CÓtr1J3Z = fin de texto. Se utiliza, por ejemplo, 


en entradas de texto. 


1.3.7 Formatos especiales de formateado 


Si desea formatear un disco exclusivo para datos, o bien si 
precisa un disco exclusivamente para el almacenamiento de 
programas BASIC, no precisa copiar Simultáneamente el 
sistema operativo CP/M. El CP/M es dispuesto en las pistas O 
y 1. En un disco de datos no necesita usted el CP/M, con lo 
que se despilfarrarian estas dos pistas. Para evitarlo, 
podemos servirnos de un comando especial: 


format d 


Si introduce este comando en lugar de FORMAT, el disco es 
formateado sin el sistema operativo CP/M. Usted dispone, por 
tanto, de más espacio para datos y/o programas. 
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Existen las siguientes posibilidades de formateado: 


format formateado con copia de CP/M 

format d formateado en formato de datos sin CP/M 
format i formateado en formato IBM 

format y formateado en formato Vendor 


Se formatea siempre el disco que se halle en la unidad de 
disco estándar. Lamentablemente no resulta posible formatear 
un disco que se halle en otra unidad. 


El formato más usual para usted es el primero si trabaja con 
CP/M oO bien el segundo si trabaja casi exclusivamente en 
BASIC bajo AMSDOS. Aqui se formatean 9 sectores por pista. 
En el formato del sistema se numeran los sectores mediante 
$41 hasta $49 (hexadecimal). Las pistas reservadas tienen la 
siguiente disposición: 


Pista O,sector 3441 :Boot-sector 

Pista O,sector $42 ¿Sector de configuración 
Pista O,sector 14+43-$47 no utilizado 

Pista O,sector +$+48-$49 sal igual que: 

Pista 1,sector +$41-$49 ¿CCP y BDOS 


CCP = Console Command Processor. 
BDOS = Basic Disk Operating System. 


Además, en los primeros sectores de la pista dos se halla el 
directorio del disco. Puede ver la disposición de los 
primeros bloques de un disco en el siguiente gráfico: 
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CP/M 


UD Directorio 


Libre para 
el usuario 





Pista O 


Pista 1 


Pista 2 





: ¡Pista 3 


Figura 3. Disposición disco 


El formato Vendor es idéntico al formato del sistema excepto 
en que el sistema operativo CP/M no es simultáneamente 
copiado. Este formato es utilizado en la venta de software, 
ya que no se puede vender el CP/M incorporado al mismo. 


El formato DATA-ONLY 


El formateado (el fisico) es el mismo que en el formateado 
del sistema. Para formatear un disco de datos, use usted el 
comando FORMAT D. Se formatean 40 pistas de 9 sectores cada 
una. Los sectores se numeran de %*C1 a $C9. El CP/M no es 
copiado en este caso, de modo que las dos pistas más 
exteriores, las pistas O y 1 quedan disponibles para el 
usuario. Asi dispone usted de 2191512=9216 bytes más. 


El _ formato IBM 


Se formatea con 8 sectores (*1 — $8) por pista y se reserva 
una pista. Lógicamente, este formato es el mismo que el 
formato de discos utilizado en el PC de IBM bajo CP/M. 
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Este +formato deberia utilizarse sólo para usos especificos 
(por ejemplo, para transferir datos a ordenadores IBM), en 
cualquier otro caso no es aconsejable. 


1.3.8 Ordenes en tránsito y residentes 


En CP/M cabe distinguir entre las' órdenes en tránsito y las 
residentes. Las órdenes residentes están disponibles 
automáticamente al inicializar el CP/M (es decir, al poner 
en funcionamiento el sistema). En consecuencia, residen 
formalmente en memoria al igual que antiguamente los reyes 
en castillos. 


Se trata de las siguientes órdenes: 


SAVE, Mz, Bi, DIR, ERA, REN, USER y 
TYPE. 


La mayoria, con mucho, se halla en el grupo de las órdenes 
en tránsito. Las órdenes en tránsito han de ser cargadas de 
disco antes de que el ordenador pueda ejecutarlas. Se trata 
de las siguientes órdenes: 


AMSDOS, BOOTGEN, CHKDISK,  CLOAD, 
COPYDISK,  CSAVE, DISCCHK, DISCCOPY, 
FILECOPY, FORMAT, SETUP. y SYSGEN. 


Estas órdenes funcionan exclusivamente en el Amstrad CPC; 
otros productos utilizan programas auxiliares similares y 
con nombres parecidos oO idénticos. Otros comandos en 
tránsito estandarizados son: 


ED, MOVCPM, PIP y STAT. 


Hallará estos ficheros en su disco de sistema CP/M. Los 
nombres de fichero están marcados mediante un .COM. A titulo 
de ejemplo, puede usted hallar en su disco el fichero 
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FILECOPY.COM (mediante el comando DIR). No dispondrá de las 
órdenes en tránsito si no fueron copiadas mediante DISCCOPY, 
COPYDISC, FILECOPY, o PIP. 


Asi que para tener una copia completa de su disco de CP/M, 
ha de copiarla mediante 


DISCCOPY (para ordenadores con un floppy) o 
COPYDISC (para poseedores de dos +floppys) 


o bien copiando mediante 

FORMAT y luego FILECOPYX.x 
todos los ficheros en tránsito. Otra posibilidad consiste en 
copiar sólo los ficheros en tránsito que precise más 
frecuentemente. Asi puede dejar a un lado por ejemplo las 


órdenes PIP, COPYDISC y  CHKDISC, si sólo dispone de una 
unidad de disco, con lo que tendrá más espacio en su disco. 


1.3.9 Copia de ficheros mediante FILECOPY 


Para copiar ficheros individuales, sirvase del comando 


FILECOPY 


En caso de que disponga [de dos unidades de disco puede 
utilizar también la orden CP/M PIP. 
Si desea copiar todos los ficheros de un disco, introduzca 


FILECOPY X*.x 
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Un nombre de fichero consta de dos partes separadas entre si 
por un punto ".". La primera parte es el nombre de fichero 
propiamente dicho; la segunda parte esoel indicativo de 
fichero o extensión. La primera parte puede tener una 
longitud máxima de 8 caracteres, la segunda de hasta 3 
caracteres. Esta regla es válida no sólo bajo CP/M en su 
unidad de discos FDD sino también bazo AMSDOS. Tenemos, por 
ejemplo los siguientes tipos de indicativos: 


Tipo definido sin más precisión. Podria ser 
por ejemplo un fichero creado en BASIC, abierto 
sin tipo de fichero mediante OPENOUT. 


-. BAS Aqui se trata de un programa BASIC almacenado 
con el comando BASIC SAVE "Programa", SAVE 
"Programa",P (O bien SAVE "Programa.bas",a. 


-.BIN Almacenamiento de una zona de memoria o bien de 
un programa en lenguaje de máquina. 


. BAK Aqui se trata de un backup, una copia de 
seguridad. Si almacena por ejemplo un programa 
bajo AMSDOS y usa un nombre bajo el cual habia 
sido almacenado un programa, el AMSDOS crea 
automáticamente un fichero backup. Y ello por 
motivos de seguridad, para no  sobreescribir 
inadvertidamente un fichero. Pero si almacena 
otra vez el programa bajo el mismo nombre, el 
antiguo fichero backup es borrado , el último 
fichero pasa a backup y su nuevo programa es 
almacenado bajo el nombre de "nombre.bas". 


. COM Se trata de ficheros de órdenes, en los que hay 
almacenadas órdenes. Todos los programas auxi-— 
liares de CP/M serán por tanto de este tipo. 


. DAT Se trata de un fichero creado, por ejemplo, por 
un programa de gestión de ficheros (como el de 
este libro) bajo AMSDOS. 
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-. SEQ El fichero es del tipo "secuencial". El tema de 
los ficheros secuenciales será tratado más 
adelante con mayor profundidad. 


Por lo demás resulta imaginable cualquier otro indicativo de 
fichero, ya que cualquier combinación posible de 3 letras 
está permitida, es decir, se puede elegir libremente. En 
cualquier caso, los tipos de fichero aqui mostrados son los 
que con.más frecuencia se emplean. 


Fundamentalmente existen tan sólo dos modos de 
almacenamiento en los que se basan todos los demás. A saber: 


a) el almacenamiento secuencial y 
b) el almacenamiento relativo de datos. 


De modo estándar, el FDD dispone únicamente : del más 
sencillo, el almacenamiento secuencial de datos. En mel 
capitulo 1.6 le aclararemos lo que se entiende por 
almacenamiento relativo de datos, y su funcionamiento. 
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1.3.10 Las "wild cards” o comodines 


Los asteriscos (XxX) empleados en el comando FILECOPYx*x.%x son 
las denominadas wild cards (=cartas salvajes). Estas wild 
cards pueden hacerle a uno la vida más fácil. ¿Pero qué son 
wild cards? Bueno, de hecho hay dos tipos de wild cards, el 
asterisco y el interrogante. Si copia un fichero mediante el 
comando FILECOPY MATES.BAS, el programa FILECOPY cargará el 
fichero MATES.BAS en memoria y lo grabará posteriormente en 
el disco destino con exactamente el mismo nombre. Ha 
indicado usted por tanto exactamente el fichero que habia de 
ser copiado. Pero frecuentemente aparecen aplicaciones en 
las que usted quiere copiar muchos ficheros distintos de 
nombres similares (o bien simplemente referirse a ellos). 
Supongamos que desea copiar exclusivamente todos los 
programas BASIC, o sea los programas que finalizan con .BAS. 
Para ello tendria que observar el directorio, anotarse todos 
los ficheros que terminen en .BAS y copiar éstos, uno detrás 
de otro, mediante el comando FILECOPY nombre.BAS. Esto 
resultaria realmente engorroso. Para aligerar este trabajo 
existen, afortunadamente, las wild cards, que no son 
exclusivas del CP/M. 


En el caso de nuestro ejemplo tendria que accionar el 
siguiente comando: 


FILECOPY *.BAS 
y se copiarian todos los programas BASIC. El asterisco 
significa aqui: "se cual sea la primera parte del nombre del 
fichero, si se trata de un programa BASIC, copia". 
Asi que se copian todos los programas BASIC. 
También resulta posible encadenar un asterisco tras uno o 


más caracteres. A titulo de ejemplo 


FILECOPY +4x*x.x 
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significa copia todos los ficheros que comiencen por "*f", 
independientemente del tipo de fichero. Com ello los 
ficheros 


"fourier.bas" 
"felipe.seq" 


serian copiados sin reparo alguno. Existe otra wild card, el 
interrogante. Un interrogante en cualquier posición 
sustituye una letra. 


Asi que en lugar de FILECOFY 4%*.%* podiamos haber escrito 
FILECOPY  479?2?2?2?2?2,.?2?2? O FILECOPY +4x.??2? O bien FILECOPY 

227272727,X. Si almacenó, por ejemplo, una agenda en disco, 
con la orden 


FILECOPY 05-27?.x 


puede copiar todas las fechas del mes de mayo de anualidades 
anteriores, suponiendo, claro está, un formato de ese 
fichero adecuado a ello. 


FILECOPY 1791 copiaria todos los ficheros con un uno en la 
primera y en la 'tercera (y a la vez última) posición, en 
medio puede darse cualquier caracter válido. 


En la utilización del comando FILECOPY *.Xx se le pregunta si 
desea copiar todos los ficheros o bien si desea 
seleccionarlos. Le son mostrados todos los ficheros uno a 
uno, y puede decidir (con y para si y n para no), si tal o 
cual fichero ha de ser copiado o no. 


1.3.11 El comando DIR 


Mediante el comando DIR puede usted dar salida al indice del 
contenido del disco. Puede, además, llevar a cabo una 
selección, es decir, puede excluir determinados ficheros. 
Ello se consigue mediante la utilización de wild cards. 
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Al omitir parámetros se toma X*.*. El comando DIR tiene el 
siguiente comportamiento: 


DIR : muestra todos los ficheros 
DIR B: : muestra todos los ficheros del floppy B: 
DIR 2.BAS : muestra sólo, los ficheros BASIC 


DIR FILECOPY. COM muestra sólo el fichero FILECOPY.COM, si 


existe 


Los ficheros se muestran en el mismo orden en el que fueron 
introducidos, es decir, el primer fichero que fue almacenado 
en el disco aparece el primero en el indice del contenido 
del disco. 


1.3.12 El comando ERA 


Mediante el comando ERA (por ERAse) puede borrar ficheros 
del disco. En cualquier caso, sólo se borran las anotaciones 
en el directorio del disco, los datos de los ficheros se 
conservan -— pero de hecho no se puede volver a acceder a 
ellos. Puede utilizar las wild cards para borrar varios 
ficheros. Si introduce *.X*, la orden ha de ser confirmada ya 
que ello borraria todas las anotaciones del disco. En caso 
de que se halle un fichero que sólo sea legible (ver también 
1.3.16), la orden se interrumpe. 


Comandos posibles: 


ERA DISCCOPY.COM : borra el fichero DISCCOPY.COM 
ERA %.SEQ : borra todos los ficheros marcados .SEQ 
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1.3.13 El comando REN 


Mediante el comando REN (por REName) se modifican los 
nombres de ficheros. 


REN nuevo nombre=viejo nombre 
En caso de que el nuevo nombre ya exista o bien en caso de 
que el viejo nombre no exista, aparece un mensaje de error. 
1.3.14 El comando TYPE 
Con la orden TYFE puede dar salida a pantalla al contenido 
de Hficheros. Si no se trata de ficheros ASCII, como por 
ejemplo programas KASIC, pueden aparecer simbolos gráficos y 


similares en pantalla. De aqui que resulte posible variar, 
por ejemplo, el color de fondo o el modo del cursor. 


TYPE EX1.BAS Representación del programa ejemplo EX! 


1.3.15 Cambio de unidad estándar de disco 


Mediante los comandos A: y B: puede usted, mientras disponga 
de dos unidades de disco, conmutar entre ambas. 


B: La unidad Bes la unidad estándar 


El simbolo indicador del sistema también se Cambia 
consecuentemente. 
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1.3.16 El comando PIP 
Mediante el comando PIP puede usted establecer la 
transferencia entre ordenador y periferia, o bien copiar en 
caso de que posea dos unidades de disco. 
La sintaxis es la siguiente: 

PIP <objeto>=<fuente>. 
La ¿fuente> y el <objeto> pueden ser ficheros o elementos de 
periferia. Puede referirse a las siguientes unidades de 
periferia: 


Como fuente: 


CON: cónsola = teclado 
RDR: interfase serie 


Como destino: 

CON: cónsola = pantalla 

PUN: interfase serie 

LST: impresora 

Ejemplo: 
Si desea crear un fichero, a introducir por teclado: 

PIP Texto. Txt=CON: 
Todo lo que introduzca será almacenado en el fichero 


Texto.Txt hasta que pulse las teclas ”[Ctrl11-Z”. Tras ello 
se cierra el fichero. 
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El comando ”PIP? no puede ser utilizado para la copia de 
ficheros con una única unidad de discos. Sirvase para ello 
del comando FILECOPY. 


Otros ejemplos: 


PIP LST:=EX2.BAS Saca el, fichero BASIC EX2.BAS por 
impresora 

PIP CON: =EX2.BAS Lleva el fichero BASIC EX2.BAS a 
pantalla. La orden es similar al 
comando TYPE EX2.BAS 


1.3.17 El comando STAT 


STAT es por status, estado. Por una parte, mediante el 
comando STAT se puede conseguir una cómoda salida de 
informaciones de ficheros, similarmente al comando DIR. 


STAT 
STAT B: 
STAT X.BAS 


serian ejemplos para ello. Por otro lado, el comando le 
ofrece una opción muy importante y práctica. Puede conseguir 
que un fichero sea de ”*sóblo lectura”*”?, es decir, que 
resulte imposible borrarlo o sobreescribirlo 
inadvertidamente. Mediante el comando 


STAT *.BAS S$R/O 


conseguirá que todos los ficheros BASIC estén provistos del 
estado de sblo lectura. Á partir de ese momento resulta 
imposible borrarlos o sobreescribirlos inadvertidamente. 
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Para la desactivación de este estado incorpore los 
caracteres para escritura/lectura ($R/W) en la orden de 
salida. Para desactivar el anterior comando introduzca: 


STAT *.BAS $R/W 
Por otro lado, puede proveer aun tichero del estado de 
sistema. Tras ello, tal fichero no podrá ser listado 
mediante el comando DIR, pues es prácticamente invisible. 
Más aún, dicho fichero ya no podrá ser copiado. Unicamente 
podr listarse con el comando STAT. Si introduce, por 
ejemplo: 

STAT *X.COM s$SYS 
Todos los ficheros COM serán provistos del estado de 
sistema, y ya no podrá copiarlos ni listarlos mediante el 
comando DIR. En cualquier caso, estos comandos siempre 


podrán volver a ser llamados. 


La inversión de esta orden tiene el siguiente aspecto: 


STAT *x.COM $DIR 
este comando fija el "estado de directorio”. 
He aqui algunos comandos STAT muy eficaces: 


STAT dsk: Le proporciona todas las informaciones 
importantes sobre el formato del disco 


STAT val: Le proporciona una lista de las 
abreviaturas y cómo están ocupadas en 
este momento. P.ej. CON:=TTY etc. 


o bien ”?STAT dev:”? y ”?*STAT usr:?” 
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1.3.18 BOOTGEN 


Mediante BOOTGEN resulta posible copiar las pistas O y 1 en 
otro diskette. Puede utilizar este comando cuando desee 
proveer con CP/M a un disco formateado en formato Vendor o 
bien cuando desee copiar un nuevo sector de configuración en 
varios discos. 


1.3.19 MOVCPM y SYSGEN 


Mediante el comando MOVCPM puede desplazar CP/M a otra zona 
de memoria. Ello es necesario con frecuencia porque el CP/M 
colisiona con cierto Software. Puede desplazar el CP/M en 
pasos de 256 bytes. La sintaxis es la siguiente 


MOVCPM <magnitud>x 


El valor de la magnitud está comprendido entre 64 y 179. El 
CP/M estándar fue generado con la magnitud 179. A titulo de 
ejemplo, con MOVCPM 178*x desplazará el CP/M hacia abajo en 
256 bytes. 


Tras ello puede almacenar el CP/M recién generado, bien 
mediante el comando SYSGEN, o bien en un fichero. Ello es 
posible también usando MOVCPM. 


Escriba luego el resultado de un comando MOVCPM, mediante 


SYSGEN, en la pista del sistema. En ello tenemos también 
tres comandos diferenciables: 


SYSGEN* 
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Este comando escribe en las pistas de sistema el CP/M 
generado mediante un comando directo MOVCPM previo. 


SYSGEN <nombre de fichero> 


Con este comando se lee el fichero generado mediante MOVCPM 
bajo el nombre <nombre de fichero> y se copia en las pistas 
del sistema. Ejemplo: SYSGEN CPMEXTRA. COM 


SYSGEN 


En ausencia de parámetros, se comparan los disco fuente y 
objeto y se copia correspondientemente el CP/M en el disco 
objeto. Con esta orden puede usted copiar CP/M en un 
diskette Vendor. 


1.3.20 SETUP 


Mediante este comando puede modificar a su antojo el aspecto 
y el desarrollo del CP/M. Este comando le permite el acceso 
a la disposicón del teclado, al acceso a discos y mucho más. 
De hecho, sólo deberia utilizar éste comando tras informarse 
exhaustivamente acerca de los efectos de suouso. En los 
capitulos 3.7.3.2 y 1.5 del manual del usuario del floppy 
FDD se halla el proceso correspondiente. 


1.3.21 AMSDOS 


Mediante el comando AMSDOS desconecta el CP/M y pasa al 
AMSDOS. Puede usted programar ahora en BASIC, como siempre. 
Tiene a su disposición los comandos del AMSDOS. 
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1.4 Trabajo en AMSDOS 


1.4.1 ¿Qué es AMSDOS? 


AMSDOS significa "AMStrad Disc Operating System". AMSDOS 
apoya el trabajo con el diskette bajo BASIC. El AMSDOS sólo 
es activo cuando la unidad de disco está conectada al 
ordenador y encendida —- lo que, obviamente, siempre se da en 
el CPC 664 y CPC 6128. 


¡Observe al pie de la letra la secuencia de encendido! Ha de 
encenderse en primer lugar el floppy; sólo después de ello 
pueden ser encendidos el monitor y el ordenador. Ello es 
debido a que, al ser encendido, el ordenador realiza 
automáticamente una comprobación de los periféricos 
(impresora, +floppy, etc.) que están conectados. En caso de 
que el floppy todavia esté apagado al encender el ordenador, 
órdenes posteriores, que deberian ir al floppy, son sin 
embargo enviadas a la unidad de cassete. Ello es por 
supuesto válido sólo para el usuario del CPC 464; el CPC 664 
y el CPC 6128 reconocen inmediatamente la unidad de disco 
incorporada. 


Todas las órdenes que siguen, que en el CPC 464 van 
normalmente al cassete, son enviadas al floppy si no se dan 
otras órdenes respectivas: 


load "nombre fichero" 

run "nombre fichero" 

chain "nombre fichero" 

merge "nombre fichero” 

chain merge "nombre fichero” 
save "nombre fichero" 

openin "nombre fichero" 
closein 

openout "nombre fichero" 
closeout 
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cat 

eof 

input 49 

line input $49 
print $9 
write $9 

list $49 


Sin embargo, la orden SPEED WRITE se refiere como antes a la 
unidad de cassette, dado que en la unidad de discos ni la 
velocidad de escritura ni la de lectura son variables (ver 
capitulo 1). 


Además de las órdenes arriba relacionadas, existen las 
siguientes órdenes llamadas externas. Se trata de órdenes 
externas ya que estas órdenes están almacenadas en la ROM 
del AMSDOS, es decir, en el floppy. Estas órdenes no pueden 
ser utilizadas en absoluto en el BASIC de cassette, ya que 
están disponibles a partir del encendido de la unidad de 
disco. Las órdenes comienzan por 1 (Shift Y 3D); este 
carácter introduce todos los llamados comandos RSX, o sea, 
órdenes de ampliación del BASIC. De hecho, los comandos del 
floppy no son propiamente comandos RSX sino que constituyen 
una excepción. 


la 

Ib 

Idir 
Idisc 
Idisc.in 
Idisc.out 
Idrive 
Iera 

Iren 
Itape 
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Itape.in 
Itape. out 
luser 


Seguro que reconoce los paralelos a diversos comandos CP/M. 
Ello no ha de extraflarle, ya que en la ejecución de estos 
comandos RSX se ejecutan exactamente las mismas funciones 
que bajo CP/M 2.2 6 CP/M 3.0. Los comandos RSX serán 
aclarados de nuevo mediante ejemplos concretos. 


1.4.2 LOAD y RUN 


Una de las primordiales funciones de una unidad de discos es 
el almacenamiento y carga de programas. Si desea cargar un 
programa de diskette, bien para iniciarlo, bien para 
programar, ha de utilizar el comando 


LOAD "nombre de fichero" 


Mediante este comando cargará programas BASIC del diskette 
en la unidad de disco. 

El ordenador Amstrad reconoce distintos tipos de fichero (ya 
nos hemos referido brevemente a los diferentes tipos de 
ficheros). Se precisan distintos tipos de ficheros para 
distinguir programas BASIC de programas en lenguaje máquina, 
y para poder diferenciar programas en general de ficheros 
(por ejemplo, un fichero de direcciones). Ello redunda en 
última instancia en una mayor claridad para usted, la unidad 
de disco puede realizar esta distinción también de modo 
interno, sin ayuda del tipo de fichero indicado en el nombre 
de fichero. 


Asi sabe usted que el tipo de fichero BAS ha de ser un 
programa BASIC. El tipo BIN señala un programa en lenguaje 
de máquina y el tipo de fichero SEQ delata ficheros 
secuenciales. 
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Si ha introducido el comando LOAD, el AMSDOS intenta cargar 
el fichero "nombre de +fichero....". Si dicho fichero no 
existe, se intenta cargar el fichero "nombre de 
fichero.BAS". Si tampoco existe este último, se realiza otro 
intento, se busca el fichero "nombre de fichero.BEIN". Sólo 
en caso de que tampoco se halle este fichero, aparece un 
mensaje "File not Found". Fero también puede introducir 


LOAD "nombre de fichero.BAS" 


para excluir el que el  AMSDOS cargue un fichero 
eventualmente existente bajo el nombre de "nombre de 
fichero. ” 


En caso de que sea el feliz propietario de una segunda 
unidad de discos, seria fabuloso poder leer programas 
también de esta unidad de disco en la memoria del ordenador. 
Para conseguirlo, es preciso incluir la unidad en el nombre 
de fichero. La primera unidad de disco (la incorporada) 
tiene el indicativo de unidad de disco *A:”*, la segunda 
unidad de disco (la externa) tiene el indicativo de unidad 
de disco *B:”*. Si se desea cargar un programa de la segunda 
unidad, el comando de carga tiene el siguiente aspecto: 


LOAD "B:nombre de fichero" 


Si el disco no está, oO está mal colocado, aparece en 
pantalla el siguiente mensaje de error: 


Drive A: disc missing 
Retry, Ignore or Cancel”? 


Introduzca entonces el disco correctamente en la unidad y 
pulse la tecla "R" por "Retry", es decir repetir. 
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Observe que no es preciso concretar el tipo de fichero. El 
AMSDOS encadena automáticamente la terminación ".EAS" a los 
nombres de ficheros al cargar y almacenar programas BASIC. 
En caso de que haya cargado un programa bajo otro nombre con 
un imdicativo distinto al de ”".BAS", puede cargar este 
fichero mediante el comando: 


LOAD "nombre de fichero.xxx" 


En XXX puede introducir los tipos de fichero 
correspondientes. 


En caso de que no exista el fichero "nombre de fichero" 
(verbigracia por una introducción errónea del nombre de 
fichero), obtendrá el mensaje de error: 


Filename.xxx not found. 


Compruebe entonces su nombre de fichero e inténtelo de nuevo 
si es necesario. 


Si obtiene el mensaje de error Type mismatch, ello le 
indica que ha olvidado introducir las comillas al comienzo 
del nombre de fichero. 


El mensaje de error 


Drive A: read fail 
Retry, Ignore or Cancel 


indica la aparición de un error de lectura en el disco. Es 
posible que el disco sea defectuoso (o que haya introducido 
un disco erróneo). También cabe la posibilidad de que su 
disco no fuera correctamente formateado en el formato 
Amstrad. 
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El mensaje 


Press PLAY then any key: 


significa que la conexión del ordenador a la interfase, es 
decir al floppy no es correcta. También es posible que no 
haya encendido la unidad de disco en primer lugar. ¡Si este 
mensaje apareciera en un CFC 654 o en un CPC 6128, seria 
realmente para preocuparse! Otra posibilidad es la de que 
haya utilizado la orden Itapeí(.in); en tal caso introduzca: 


Idisc 


e inténtelo de nuevo. Si vuelve a obtener el mismo mensaje, 
desconecte su ordenador y vuelva a encenderlo. 


Al igual que en el BASIC de cassette, existe la posibilidad 
de ejecutar programas automáticamente tras su carga. También 
aqui se utiliza para ello el comando: 


RUN "nombre de fichero" 


Aqui ya mo disponemos de la posibilidad existente en el 
BASIC de cassette de utilizar el comando RUN ", dado que se 
precisa exactamente el nombre del fichero a cargar. Para la 
orden RUN "nombre de fichero" som válidos los mismos 
mensajes de error, y sus consecuencias, que para LOAD. 


Precisamente al cargar programas BASIC notará como usuario 
del CPC 4646 la rapidez de la unidad de disco Amstrad frente 
a la unidad de cassette. 
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Por supuesto que puede hacer uso también de las restantes 
órdenes BASIC de carga. El cómo puede utilizar los comandos 


CHAIN "nombre de fichero” 
MERGE "nombre de fichero" y 
CHAIN MERGE "nombre de fichero" 


es mejor que lo mire en el manual, ya que en el proceso de 
carga pueden suceder distintas cosas con los programas que 
se hallan en memoria. 


Una posibilidad muy útil es la de poder definir, bajo AMSDOS 
al igual que en  CP/M, las llamadas zonas de users. USER 
proviene del inglés y está por la palabra espaffola 
"usuario". Si ya se ha mirado un directorio, habrá observado 
que la primera linea tiene el siguiente aspecto: 


Drive A: user O 


Puede definir números user de O a 15, siendo el estándar el 
número user 0. Mediante el número user puede referirse a 
diferentes directorios, es decir, puede dejar por ejemplo 
com user O las órdenes CP/M y bajo user 1 sus programas 
BASIC y datos. Si desea cargar un programa del user 1, 
dispone de dos caminos para ello. El primero consiste en 
definir el user mediante la orden IUSER. Con 


IUSER, 1 


lo conseguimos. Después puede usted cargar el programa 
mediante LOAD "nombre de fichero". Tras cargar el programa 
se hallará usted todavia en el user 1, hasta que lo 
redefina. La segunda posibilidad consiste en incluir el user 
en el nombre de fichero. Mediante 
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LOAD "i:zmombre de fichero" 


cargará usted un programa del user 1, independientemente de 
su estado de user en ese momento. Ha de poner, por tanto, el 
número de user y después el doble punto ante el nombre de 
fichero en si, como en el floppy. Si desea elegir el floppy 
y el número de user, ha de dar en primer lugar este número, 
luego el floppy y, finalmente, el doble punto. Ejemplo: 


LOAD "8BB:Nim" 


carga el juego "Nim" de la unidad de disco B, el user es 8. 
La sintaxis es, por tanto, la siguiente: 


LOAD "<num.user ><drive>:nombre de fichero" 


<num.user> significa un número user cualquiera entre O y 15, 
<drive> indica la unidad de disco, es decir, A o B. 


1.4.3 Las órdenes de fichero 


Para el tratamiento de ficheros con la unidad de cassette o 
la unidad de disco, se precisa de las órdenes: 


OPENOUT "nombre de fichero" 
OPENIN "nombre de fichero" 
CLOSEOUT 

CLOSE IN 

INPUT *9 

LINE INPUT $9 

PRINT $9 

WRITE $49 
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El siguiente programa le escribe los primeros 100 números en 


un fichero en cinta (CPC 464) o en disco (CPC 664 Y 6128): 


10 REM ========================:=====o============= 
20 REM Programa ejemplo para ficheros de datos 


50 OPENOUT "numeros" 
60 FOR I=1 TO 100 
70 PRINT $9, 1 

80 NEXT I 

90 CLOSEODUT 


120 REM Ahora, lectura 


150 MODE 1 : PEN 1 

150 PRINT "Rebobine la cinta” 
170 PRINT "y pulse una tecla” 
180 D$ = INKEYS : REM XxX borra buffer XXX 
190 IF INKEYS = "" THEN 190 
200 : 

210 OPENIN "numeros" 

220 WHILE NOT EOF 

230 INPUT $9,1 

240 PRINT 1, 

250 WEND 

260 CLOSEIN 

270 END 


¡Atención! Este programa escribirá sobre cassette sólo 
posee un CPC 464 y tiene desconectada del ordenador 
unidad de disco. No obstante, si posee un CPC 464 y 
unidad de disco está conectada al ordenador, incluya 
siguiente comando antes de la ejecución del programa: 


si 
la 
su 
el 
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ITAPE 


Todas las órdenes de fichero se dirigen de nuevo a la unidad 
de cassette. Puede cronometrar lo que tarda el programa en 
ejecutarse. Cuando haya acabado, introduzca 


Idisc 


y ejecute el programa de nuevo. Ahora se abre el fichero 
"numeros” en la unidad de discos. Dado que no puede 
rebobinar ¡un disco, puede saltarse el mensaje "rebobine la 
cinta” y pulsar directamente una tecla. 


Introduzca un disco que no esté protegido frente a 
escritura; lo mejor es que utilice uno que haya formateado 
como ejercicio. Luego introduzca RUN. 


Observará que la duración de este proceso es 
considerablemente más reducida. Asi que, en principio, no le 
costará mucho esfuerzo si desea trabajar con ficheros 
secuenciales en disco si ya lo hizo en BASIC con la unidad 
de cassette. 


También puede conmutar al viejo conocido, el BASIC de 
cassette, .mediante el comando ITAPE, lo que se verá en el 
capitulo 1.4.4 


La función EDF, tal y como aparece en la linea 220 de 
nuestro programa ejemplo significa End Of File, es decir, 
fin del fichero. Esta función es falsa(=0) si todavia pueden 
ser leidos caracteres del fichero abierto para lectura. EDF 
será cierta=(-1) después de haberse leido el último carácter 
de dicho fichero; ya no pueden recogerse más caracteres de 
este fichero. Esta orden es muy importante cuando se leen 
ficheros secuenciales y el número de caracteres a leer no es 
conocido previamente. EOF le posibilita por tanto trabajar 
de un modo muy flexible con ficheros secuenciales. 
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Ahora nos ocuparemos exclusivamente de órdenes de disco. Las 
prestaciones de. la utilización de cassette son 
considerables, pero no han de ser exhaustivamente comentadas 
en un libro sobre floppys. 


Introduzca ahora la orden 


EAT 


Obtendrá en pantalla el indice del contenido del disco o 
directorio. Por directorio entendemos la lista de los 
ficheros almacenados en una cara de diskette. El disco ha de 
ser organizado; existen para ello bloques especiales en el 
mismo en los cuales están almacenadas las siguientes 
informaciones: los nombres de los ficheros, sus longitudes, 
a qué tipos pertenecen y dónde puede hallarlos el DOS, el 
Disk Operating System. 


Si mira el fichero mediante las órdenes CAT o IDIR, obtiene 
información acerca de qué ficheros se hallan en su disco y 
de cuánta memoria dispone usted. 


Al utilizar el comando CAT se le da suplementariamente la 
longitud del fichero en KBytes, lo que no sucede con el 
comando IDIR. La minima unidad para un fichero es un KByte. 


Las dórdenes IDIR y CAT no som idénticas. Ambas muestran el 
directorio, pero el comando IDIR muestra los ficheros en el 
mismo orden en que fueron puestos en el disco. La orden CAT 
muestra la longitud de los ficheros, ordenándolos además 
alfabéticamente antes de darles salida. Como se ve, dos 
importantes diferencias. 
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En dicho directorio hallará también el fichero "numeros" que 
hablamos creado anteriormente: 


numeros . 1k 


Dado que no hemos incluido ningún tipo de fichero, tras el 
punto tampoco aparece tipo de fichero alguno. El nombre de 
fichero es automáticamente completado hasta la octava 
posición mediante espacios. 


Observará que nuestros 100 números ocupan 1kKByte, es decir 
1024 bytes. Pero incluso en el caso de que hubiéramos 
escrito en este fichero un único número, el fichero 
"numeros" cocuparia 1 KByte, dado que esta es la minima 
unidad. 


Pero ejecute de nuevo su programa y vea lo que ocurre con el 
directorio. Introduzca RUN, luego CAT. 
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Verá que hay dos ficheros con el nombre "numeros”. Uno de 
los ficheros carece de indicativo de fichero. En el mismo 
están los 100 números escritos la vez anterior. Pero existe 
además un fichero "numeros .BAK". Recordará de la parte de 
CP/M que BAK es la abreviatura de BAcKup. Al abrir el 
fichero "numeros” mediante el comando OPENOUT "numeros”, el 
AMSDOS comprobb la no existencia previa del fichero 
“numeros”. Dado que ya habiamos ejecutado nuestro programa, 
el fíchero si existia. De hecho, ya lo vimos en el 
directorio. Ya que el  AMSDOS no desea sobreescribir este 
fichero, elabora una copia de seguridad bajo el nombre de 
"nombre de fichero.BAK". Sólo entonces se borra el antiguo 
fichero, para que pueda abrirse uno nuevo con el mismo 
nombre. Aprenderá a apreciar esta peculiaridad del AMSDOS. 
Cuando pueda prescindir con toda seguridad del fichero 
backup, puede borrarlo también. 


También al almacenar un programa BASIC con el comando SAVE 
"nombre de fichero” OU SAVE "nombre de fichero.BAS",A, un 
programa eventualmente preexistente es almacenado de modo 
previo como copia backup, asi que la protección frente a 
sobreescrituras ¡involuntarias es bastante completa.Pruebe 
ahora lo siguiente, tecleando NEW: 


NEW (RETURN) 


10 PRINT "Primera parte." 


20 PRINT 
SAVE "Prog" 
El programa será almacenado en disco bajo el nombre 


"Prog .BAS". Adjunte las siguientes lineas: 
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30 PRINT "ya completada" 
40 PRINT 


Introduzca de nuevo la orden para almacenar programas: 


SAVE "Prog" 


Es decir, empleando exactamente el mismo nombre de fichero 
de antes. Ahora puede introducir LOAD "Prog.BAK". (Observe 
que, en la práctica, no ha de constar forzosamente de ocho 
posiciones al entrar nombres de fichero). Si lista su 
programa reconocerá que ha cargado la primera versión de 
nuestro corto programa. Introduzca ahora 


LOAD "Prog" 


y será cargada en memoria la última versión con cuatro 
lineas. Suponiendo que la complete con la linea 


50 END 


y vuelva a almacenarla en disco, la primera versión, de sólo 
dos lineas, habrá desaparecido. Nuestro programa de cuatro 
lineas lo hallará bajo el nombre de "Prog.BAK", y el actual 
bajo el de "Prog.BAS". ; 


Si almacenara el programa bajo el nombre "numeros", ello no 
generará fichero backup alguno, dado que no existe ningún 
fichero con el nombre "numeros.BAS". Asi que se conservan 
sus ficheros "numeros.BAS" y "numeros.BAK". Si vuelve a 
almacenar su programa, el fichero "numeros.BAK" será 
sobreescrito por una copia del programa BASIC. 
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Son posibles los siguientes comandos SAVE: 


SAVE "nombre de fichero",A 


que almacena el programa como fichero ASCII. Estos ficheros 
de programa son algo más largos que los ficheros "normales" 
de programas BASIC, dado que las distintas órdenes, como por 
ejemplo "PRINT", son escritas en el disco carácter a 
carácter, y no como tokens. (Un token consta de un carácter 
y representa una palabra clave BASIC). Los programas asi 
almacenados también pueden ser leidos carácter a carácter a 
través de un programa. 


SAVE "nombre de fichero",P 


almacena un programa bajo estado de protección, es decir, 
dicho programa no podrá ya ser LliSTado ni reinicializado O 
almacenado tras una interrupción mediante (ESC) (ESC). 


SAVE "nombre de fichero”,B,<dirección inicial>,<longitud> 


Con este comando puede almacenarse una zona de memoria, como 
por ejemplo la memoria de pantalla, como fichero binario. Ha 
de ¡incorporar la dirección inicial y la longitud de la zona 
de memoria. Al cargar mediante el comando LOAD "nombre de 
fichero.BIN" el fichero es cargado en la dirección inicial 
correspondiente. La figura 4 ilustra este proceso. 
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Almacenamiento de una zona de memoria 
A A A 





AAA 
¡longitud del programa j¡ 


Dirección inicial Dirección final 


Figura 4. Almacenamiento de una porción de memoria 


Naturalmente, en la orden SAVE puede incorporar al fichero, 
al igual que en la LOAD, indicaciones acerca de la unidad de 
disco y número de user. 


Ya habrá observado que puede trabajar con la orden SAVE 
exactamente ¡igual a como está acostumbrado del BASIC de 
cassette. La utilización de las restantes órdenes BASIC de 
carga y escritura de datos le será explicada en el siguiente 
capitulo, donde también se aclarará el modo de trabajo con 
ficheros secuenciales a base de ejemplos. 


1.4.4 Las órdenes adicionales del AMSDOS 


Al encender la unidad de disco dispone usted de otras 
órdenes de diskette, almacenadas en la ROM (Read Only 
Memory) del floppy. A estas órdenes también se les llama 
órdenes externas, ya que están definidas en el floppy. 


Sin la unidad de disco, dichas órdenes no están a su 
disposición. Puede reconocerlas en que comienzan por el 
caracter 1 (Shift % tecla de 09). Puede utilizar estas 
órdenes, como comando directo o bien incluidas en programas. 
He aqui la lista de las órdenes externas con ejemplos para 
su mejor comprensión. 
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Cuando un parámetro está situado entre los caracteres < y >, 
significa que se trata de un sinónimo. For ejemplo, hallará 
frecuentemente la expresión <expresión de cadena, lo que 
significa que ha de poner en esta posición del comando una 
variable de cadena. No obstante, si la <expresión de cadena> 
está entre corchetes [<expresión de Cadena>*3 , ello 
significa que la expresión de Cadena puede omitirse, es 
decir, es opcional. 


IA Esta orden fija la unidad de disco Á como unidad 
estándar. No la puede utilizar con uma única 
unidad, ya que en tal caso dicha unidad A es, 
automaticamente, la unidad estándar. Entendemos 
por unidad de disco estándar a la unidad a la que 
van automáticamente referidas las órdenes de 
floppy sin especificaciones adicionales. 

La orden es idéntica al comando 


at="a" 
IDRIVE, da$ 


IB Fija la unidad de disco B como unidad estándar 
(ver arriba). 
Esta orden es idéntica a 


ag="B" 
IDRIVE,da$ 


ICPM Se carga el sistema operativo CP/M del disco. Si 
utiliza este comando, en la unidad de disco A ha 
de hallarse un disco que haya sido formateado con 
CP/M en ambas pistas del sistema. Es el caso de 
los discos incluidos con el aparato en la compra. 
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IDIR 


El comando  IDIR, [<expresión de cadena>] muestra 
el contenido del disco y es idéntico a la orden de 
BASIC estándar CAT. 

Le será mostrado el directorio del disco asi como 
la memoria libre del mismo. 

En caso de que la <expresión de cadena> opcional 
falte, se toma *.*, es decir, se muestran todos 
los ficheros (sin selección). Como ya se mencionó, 
los asteriscos e interrogantes (*X/?) son wild 
cards y representan caracteres en general. Como 
recordatorio: un interrogante significa aqui 
puede ¡ir cualquier carácter”, y un asterisco: ”de 
aqui al fimal del nombre de fichero puede ir 
cualquier combinación de caracteres”. Suponiendo 
que lo que desee sea simplemente listar todos los 
ficheros BASIC, puede conseguirlo mediante el 
comando 


a$="*.BAS" 
IDIR,da$ 


pero también podria querer listar, por ejemplo, 
todos los ficheros que comiencen por "mates". Para 
ello ha de teclear: 


a$="matest*.x*x" 
IDIR,Ddas$ 


La utilización de wild cards (también llamadas 
comodines) puede resultar muy útil y ahorrar mucho 
tiempo. En el comando IDIR esto contribuye a 
clarificar las cosas. 
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IDISC 


La ventaja de la orden CAT consiste en que ordena 
alfabéticamente los nombres de los ficheros antes 
de la salida e incorpora las longitudes de los 
mismos. La orden IDIR tiene la ventaja de que se 
puede seleccionar la salida. 


Esta orden engloba las dos órdenes  Idisc.in e 
Idisc.out. Dado que ha de utilizar las mismas 
órdenes BASIC para las unidades de disco y de 
cassette, solamente obtendrá respuesta en uno de 
los aparatos. Para utilizar también el cassette 
cuando esté trabajando con el Floppy, Con las 
órdenes IDISC e ITAFE tiene usted la posibilidad 
de elegir el aparato de entrada o de salida 


IDISC.IN Tras dar esta orden, las siguientes órdenes de 


entrada se refieren, de modo automático, al floppy 
y no al cassette: 


LOAD "nombre de fichero" 
RUN "nombre de fichero" 
CHAIN "nombre de fichero" 
CHAIN MERGE "nombre de fichero" 
MERGE "nombre de fichero" 
OPENIN "nombre de fichero" 
CLOSE IN 

EOF 

CAT 

INPUT 49 

LINE INPUT 49 
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Este comando desactiva de nuevo las órdenes ITAFE 
o ITAPE. IN. Asi, por ejemplo, la secuencia 


ITAPE 

IDISC. IN 

OPENIN "fichero" 
OPENOUT "backup" 


abriria un Canal de entrada en el floppy para 
lectura, pero el canal de salida escribiria en 
cassette. Asi puede copiar ficheros de disco en 
cassette (como copia de seguridad). 


IDISC.OUT Esta orden es similar a la orden IDISC.IN con 
la salvedad de que las salidas se dirigen aqui al 
floppy. Resultan afectadas las siguientes órdenes: 


SAVE "nombre de fichero" 
OPENOUT"nombre de fichero” 
CLOSEOUT 

WRITE 49 

PRINT 49 


ITAPE 


IDISC.OUT 
IOPENIN "backup" 
IOPENOUT "fichero" 


Esto seria la inversión del ejemplo bajo IDISC. IN. 
Con las órdenes de lectura se leeria ahora del 
cassette el fichero backup, pero las órdenes de 
escritura se referirian al floppy. 
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IDRIVE 


IERA 


Esta orden IDRIVE,<expresión de cadena> es idén- 
tica a los comandos IA e IB, pero es flexible por 
cuanto puede indicar, en una variable de cadena, 
el nombre de la unidad de disco estándar elegida. 


at="b" 
IDRIVE, da$ 


tendria como consecuencia que, a partir del 
momento de la ejecución de la orden, la unidad B 
es la unidad estándar por definición. No puede 
usar este comando si sólo dispone de una unidad de 
disco. 


ERA viene de la palabra inglesa erase=borrar. 
Mediante este comando puede usted borrar ficheros. 
En él puede utilizar también wild cards, asi por 
ejemplo la orden 


a$="Y.seq" 
IERA, Da$ 


borraria todos los ficheros del tipo "seg". La 
utilización de esta orden deberá ser 
suficientemente meditada, sobre todo si trabajamos 
con wild cards, dado que podrian ser borrados 
inadvertidamente ficheros todavia útiles. Se 
desaconseja la utilización de comodines en la 
orden IERA si no se tiene un poco de soltura con 
el floppy y el manejo de comodines. 
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IREN 


El comando 


ab="x,.x" 

IERA, da$ 
borraria todos los ficheros. En este caso el 
AMSDOS espera una confirmación especial del 
comando. 


REName (= modificación del nombre) de un fichero. 
Con este comando puede, por tanto, cambiar el 
nombre de un +fichero. La primera expresión de 
cadena ha de contener el nuevo nombre de fichero, 
la segunda expresión de cadena contiene el 
antiguo. Si por ejemplo desea cambiar el nombre 
del fichero "Luisa” porque ha cortado con ella y 
dejarlo en "Juana", puede introducir las 
siguientes órdenes: 


ant$="Luisa.bas” 
nue$="Juana.bas"” 
IREN, Mnue$, dJant$ 


Si mira el directorio mediante el comando IDIR, 
observará que el fichero "Luisa.BAS" ya no existe, 
y que tiene en su lugar el fichero "Juana.BAS". 

Es obligatorio indicar “ambas expresiones de 
cadena. 
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ITAPE 


ITAFE. IN 


ITAPE. OUT 


IUSER 


Este comando desactiva los comandos  IDISC, 
IDISC. IN y IDISC.OUT y establece tanto la 
entrada como la salida por unidad de cinta. El 
comando comprende las órdenes ITAPE.IN y 
ITAPE. OUT. 


Esta orden utiliza la unidad de cassette como 
fichero de entrada. La orden desactiva los co- 
mandos IDISC y IDISC. IN. 


Se utiliza la unidad de cinta como aparato de 
salida. Desactiva las órdenes IDISC y IDISC.OUT. 


Con este comando tiene usted la posibilidad de 
definir un user = usuario determinado. Habra 
observado que junto al directorio del disco 
aparece el mensaje 


USER: 0 
a 
Este es un comando CP/M especial y muy atil. 
Hallara más ¡información al respecto en el 
capitulo 1.4.2. 


Mediante el comando IUSER puede usted ocultar 
ficheros a otras personas. 

Almacene cualquier programa BASIC del siguiente 
modo: 


IUSER, 3 
SAVE "programa" 
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IUSER, O 
CAT 


o sencillamente con el comando 


SAVE "3:programa" 


No hallará en la lista el programa recién 
almacenado, ya que dicho programa aún no se 
halla en la zona actual de usuario. Pero si 
introduce 


IUSER, 3 
CAT 
IUSER, O 


Le aparecerá un indice mucho más corto, de un 
único elemento. Puede crear asi distintos 
directorios O proteger ciertos programas de 
otros usuarios. 


Habrá observado que las órdenes con una expresión de cadena 
son de utilización bastante incómoda. Ási, por ejemplo, ha 
de introducir 


at="a" 
IDRIVE, da$ 


en lugar del sencillo 


IUSER, "a" 
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Este sencillo método comentado resulta posible en los 
ordenadores CPC 646 y CPC 6128, ya que en ellos se llevó a 
cabo la corrección de los sistemas operativos de BASIC. Si 
desea escribir  program«s que puedan funcionar en los tres 


ordenadores se hace necesario emplear el método aqui 
comentado, ya que una IDRIVE,"A" por ejemplo, llevaria en el 
CPC 464 a un mensaje de error -— vale por tanto la pena, 


utilizar este procedimiento un tanto engorroso, con vistas a 
la compatibilidad. 


Y sin embargo, el sistema operativo de BASIC del CPC 464 
está provisto de tal modo que se transfiere una dirección de 
una expresión de Cadena al sistema operativo AMSDOS. Este 
recoge posteriormente de la memoria la cadena por si mismo. 
Las cadenas se almacenan en algún lugar de la memoria. 
Mediante la función AInombre de variable obtendrá la 
dirección donde está almacenada la variable, en nuestro caso 
la cadena. Realmente, la forma de transferencia de datos no 
es muy cómoda, pero se acostumbrará usted rápidamente. 


El comando 39 es un comando BASIC muy útil, que no se 
menciona en el manual. Introduzca: 


a=12.2 
PRINT Qda 


Dependiendo del número de variables que haya utilizado 
previamente, el valor que salga será mayor o menor. Cuanto 
más tarde sea declarada una variable, mayor es el valor de 
la función AInombre de variable. También es significativa la 
longitud actual del programa BASIC ya que la tabla de 
variables se halla en la memoria ineludiblemente tras el 
programa BASIC. 


Como debe saber, la variables numéricas se van disponiendo 
en la memoria de abajo a arriba, las cadenas están en el 
limite superior de la memoria y se mueven hacia abajo. Puede 
visualizarlo mediante el siguiente ejemplo: 
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NEW 
a=10.1 : b=20 : a$="Ejemplo 1" : 
b$="Ejemplo 2" 


PRINT Ya, 9db,da$,2Db$ 


Si observa por fin las direcciones de las variables, verá 
que las variables numéricas ocupan Y9Y bytes. Aqui están 
almacenados los valores de las variables a y b, asl1 como sus 
nombres. Pero las variables de cadena son almacenadas de 
otro modo. Introduzca 


PRINT PEEK (2a%) 


Obtendrá el valor de 9, lo que es exactamente la longitud de 
la variable a$. Lo mismo vale para la variable de cadena b$. 
Los valores de las posiciones de memoria 


da$+1 asi como 
dat+2 


contienen un puntero o indicador. Este puntero le comunica 
al sistema operativo dónde puede hallar la cadena. Este 
método de almacenamiento de Cadenas le puede parecer 
complicado, pero tiene una ventaja decisiva: no ha de 
desplazarse toda la tabla de variables si una cadena 
modifica su longitud; simplemente hay que modificar los tres 
bytes descritos. 


Pero démosle salida a nuestra cadena de un modo poco 
convencional: 


ad=PEEK (da$+1) + 256XPEEK (DJa$+2) 
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Hemos calculado la dirección en la que está almacenada la 
cadena de caracteres af -— yen la variable ad como memoria 
intermedia. 


FOR I=0 TO PEEK(9a$)-1 
PRINT CHR*$(PEEK (ad+1))5 
NEXT I 


Y obtendrá de nuevo el contenido exacto de la variable at. 
Es muy fácil alterar el puntero de la variable de cadena con 
lo que consigue poder desviar a voluntad el contenido de la 
variable. Esta propiedad se utiliza en los programas del 
capitulo S (rutina de búsqueda de errores y gestión de 
ficheros relativos). Como ejemplo, desvie la cadena a$ a su 
pantalla: 


POKE Ja$+1,%O00POKE Ja$+2,%C1 


El puntero para la cadena caracteres apunta ahora a el 
centro de la memoria de pantalla. Dele ahora salida a la 
variable de cadena a$: 


PRINT as 


El efecto no se puede describir con precisión, ya que a cada 
uno le aparece algo distinto en pantalla, posiblemente 
parpadee el margen, O  varie el modo de escritura. En 
cualquier caso obtendrá una oleada de caracteres diversos. 
Ello deberia servirle como introducción a la orden 3. 
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1.5 Almacenamiento secuencial de datos 


1.5.1 ¿Que es el almacenamiento secuencial de datos? 


Por descontado que una unidad de disco no ha de servir 
exclusivamente para el almacenamiento y carga de programas — 
resulta especialmente ¡indicada para el almacenamiento de 
grandes cantidades de datos, que apenas podriamos manejar (o 
en absoluto) con la unidad de cassette. 


Aqui cabe volver a aclarar el concepto de datos. Hemos de 


distinguir entre ficheros que contienen programas, y 
ficheros que simplemente contienen datos. Ambos tipos de 
ficheros son almacenados de modo secuencial (ver abajo), 


pero se distinguen por una diferencia sustancial: 


Usted puede leer los ficheros de programa (bien de programas 
BASIC, bien de programas en lenguaje de máquina) de modo 
directo mediante los comandos LOAD directamente en memoria. 
No es asien los ficheros de datos; éstos sólo pueden ser 
leidos en memoria y gestionados a través de programas. Ási, 
un programa de contabilidad escrito en BASIC seria un 
fichero de programa en el disco, mientras que los datos 
generados por este programa estarian almacenados en el disco 
en un fichero de datos. - 


Mediante la DDI-i usted únicamente puede elaborar de modo 
estándar ficheros secuenciales, como ya conoce del BASIC de 
cassette; el principio es idéntico. El almacenamiento 
secuencial de datos no es mel método de almacenamiento de 
datos más rápido, pero si el más sencillo y completamente 
suficiente para problemas de magnitud de reducida a mediana. 
Teniendo en cuenta que además resulta sencillo de entender, 
puede aprenderse fácilmente. 


Secuencial no significa otra cosa que carácter a carácter. 
Un fichero secuencial es una secuencia de caracteres 
(letras, Cifras, caracteres especiales, etc., es decir una 
serie de caracteres. Para leer el último carácter de un 


Introducción a la programación 73 





fichero han de releerse todos los caracteres anteriores, del 
primero al penúltimo. Imaginese un libro de 100 páginas. 
Desea leer la primera letra de la página 100 y para ello 
esta obligado a releer antes todos los caracteres de las 
páginas 1-99. De este modo se lee un fichero secuencial -— 
un método no demasiado refimado. Por suerte la DDI-1 es muy 
rápida, de modo que apenas nos damos cuenta de este tipo de 
cosas. 


INICIO DEL FICHERO 
Figura 6. Fichero secuencial 


Otra posibilidad, realmente más confortable, de leer datos 
es la posibilidad de acceder directamente a un fichero, lo 
cual se denomina acceso directo o bien random access lacceso 
aleatorio); también se ha impuesto el concepto de ficheros 
relativos. 


Acceso directo significa que — siguiendo con el ejemplo del 
libro -— puede leer directamente, por ejemplo, la letra 55 de 
la página 29 sin necesidad de leer por encima todas las 
demás páginas anteriores. Cuando, en un fichero secuencial, 
alcance el juego de datos número 100, no podrá ya leer un 
carácter del quinto juego de datos -—- es decir, no se puede 
retroceder. Esta es la limitación de las posibilidades de 
los ficheros secuenciales, limitación que ya no se da en los 
ficheros relativos. 


Pero todo esto es un simple boceto de las diferencias. En el 
capitulo 5 hallará más sobre ficheros relativos y su 
programación en la FDD. 


Pasemos a explicar, de fa mano de diversos ejemplos, el modo 
de utilizar con efectividad el almacenamiento secuencial de 
datos, ya que es (de momento) la única posibilidad que se 
nos ofrece para almacenar datos en disco. 
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Vamos ahora a crear nuestro primer pequeño fichero. Como 
ejemplo confeccionaremos una agenda telefónica, para 
almacenar los teléfonos más importantes de nuestros 
parientes o amigos. 


Al idear un fichero, se impone en primer lugar la siguiente 
reflexión: ¿Qué quiero almacenar”? En este ejemplo nos hemos 
decidido por estas anotaciones: 


1) Apellido (=campo 1) 
2) Nombre de pila (=campo 2) 
3) Número de teléfono (=campo 3) 


Un juego de datos (ficha) es una unidad completa; cada juego 
de datos contiene ciertas informaciones, que se hallan 
también en cada uno de los otros juegos de datos. Nuestro 
juego de datos consta de 3 campos, también llamados campos 
de datos. Para Hfacilitar la comprensión del concepto de 
juego de datos, observe el gráfico: 


JUEGO DE DATOS 


APELLIDO 


] NUMERO DE TELEFONO 





Figura 6. Juego de datos 
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Podemos disponer asi de un juego de datos llamado "Molina", 
que contiene como información el nombre, apellido y número 
de teléfono de nuestro colega Molina. 


Campo 1: Apellido 
Campo 2: Nombre 
Campo 3: Número de teléfono 
En este gráfico puede reconocer a simple vista las 


subdivisiones de un juego de datos. 


Al escribir los datos en un fichero, no resulta tan fácil 
reconocer las divisiones de un fichero como aqui, sobre el 
papel, sino que están separados entre si simplemente de un 
modo fisico. La separación entre los juegos de datos no se 
diferencia de la separación entre los campos de datos, se 
utiliza el mismo carácter separador. La separación de los 
juegos de datos -— es decir, la correcta disposición de los 
campos de datos -— corresponde al programador. El es el único 
que sabe cuántos campos hay en cada juego de datos. Es por 
este motivo que dicha información deberia incluirse de forma 
clara en los listados de los programas. 


Al finalizar una entrada visualizada por pantalla, usted 
pulsa la tecla ENTER, también llamada retorno de carro o 
carriage-returnm. En el almacenamiento secuencial de datos 
ocurre exactamente lo mismo, los distintos campos de datos 
se separan mediante un retorno de carro en el disco, asi que 
mediante la "tecla" ENTER finaliza usted la entrada en un 
campo de datos. 


area ea e altea 
<Retorno de carro> 


Figura 7. Separación de campos de datos 
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Para facilitarle la visualización de cómo se separan los 
distintos campos de datos, observe la figura 7. El carácter 
separador salto de carro se representa mediante la flecha 
quebrada. 


En nuestro ejemplo puede reconocer que los campos de datos 
no han de tener la misma longitud, sino que pueden tener, en 
ficheros secuenciales, Cualquier longitud, siendo ello 
además válido para la longitud de los juegos de datos. A 
pesar de esto, los campos de datos pueden determinarse 
exactamente, dado que están separados mediante el simbolo de 
retorno de carro. 


Fara leer un fichero de este tipo, se utiliza la orden INPUT 
$0. 


OPENIN "nombre de fichero” 
INPUT +$9,apellido$,nombre+$,telefono$ 
CLOSEIN 


Tras estos comandos solamente se leeria un cierto juego de 
datos; los valores de las variables podrian ser, por 
ejemplo: 


apellido$ "Gonzalez" 
nombres$ "Felipe" 
telefonos$ "91/3522122" 


donde las comillas ¡indican sencillamente el principio y 
final de la cadena de caracteres y no pertenecen, por tanto, 
a la cadena en si. No obstante, las cadenas pueden incluir 
comillas. 
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1.5.2 Programación de ficheros secuenciales 


Pero pasemos a la creación de un fichero secuencial en 
disco. Introduzca para ello el siguiente programa: 


10 REM==================>================ 
20 REM Frimer programa de ficheros 
30 REM================================== 
40 : 

50 OPENOUT "test.dat” 

60 PRINT $9, "Montenegro" 

70 PRINT +49,"Vicente" 

80 PRINT +$9,"2111163" 

90 REM --—- Primer juego de datos --- 

100 PRINT +$9,"Heredia" 

110 PRINT $9, "Santi ago” 
120 PRINT $9,"3297292" 

130 REM -—-—- Segundo juego de datos --— 
140 PRINT $9, "Maldonado" 

150 PRINT +$9,"Mariano"” 

160 PRINT $9,"3419656" 
170 REM -—-—- Tercer juego de datos ---— 
180 CLOSEOUT 
190 END 


Hemos creado con ello un fichero con el nombre de "test.dat" 
que contiene tres juegos de datos. 


El comando BASIC PRINT tn se maneja igual que el FRINT 
normal. Seguro que ya conoce el comando PRINT +* en relación 
con las ventanas (window) que puede usted definir en su 
AMSTRAD. Mediante el comando PRINT + puede usted referirse a 
una de las ventanas definidas, con n comprendida entre O y 
7. Con n=8 nos referimos a la impresora y con n=9 a la 
unidad de cassette o de disco, según la instalación. Lo 
mismo es válido para los comandos INPUT én y LINE INPUT n. 


El carácter lógico de separación, carriage return se sitúa 
en nuestro ejemplo entre los juegos de datos, dado que el 
comando PRINT $9 no va seguido de punto y coma. Esto ya lo 
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sabia del comando PRINT usual. Si coloca un punto y coma en 
la última posición de la orden PRINT, la siguiente salida 
será escrita en la misma linea. En salidas de floppy puede 
usted también crear un fichero por encadenamiento de varias 
salidas. 


Pero volvamos a leer nuestros datos: 


50 OPENIN "test.dat" 

60 INPUT +49,apellido$,nombre*$,telefonos$ 
70 PRINT apellido$,nombre*+$,telefono$ 

80 INPUT +49,apellido$,nombre$,telefonos$ 
90 PRINT apellido$,nombre$,telefonos$ 
100 INPUT +*9,apellido+$,nombre$,telefonos$ 
110 PRINT apellido$,nombre$,telefonos$ 
120 CLOSEIN 

130 END 


Obtendrá la siguiente salida: 


Montenegro Vicente 2111163 
Heredia Santiago 3297292 
Maldonado Mariano 3419656 


Asi hemos almacenado y recuperado con éxito datos de disco, 
con lo cual podemos establecer: 


Mediante PRINT +49 escribimos datos en disco, y con INPUT +49 
volvemos a leerlos. La entrada/salida de datos de disco no 
se diferencia por tanto demasiado de la entrada/salida a 
pantalla. 
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Nuestro ejemplo 


funciona, 


pero dista mucho de ser cómodo, 


sobre todo si se piensa en la tarea a realizar para leer 100 


datos. La solución al problema es, 


y conlleva un aligeramiento notable del trabajo: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


Tampoco es 
datos de un t 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


Ha de imagi 
datos quedan 


OPENIN 
FOR I=1 


"test.dat" 
TO 3 


evidentemente, un bucle, 


INPUT %*9,apellido$,nombre$,telefonos+ 


PRINT apellidos$,nombre$,telefonos$ 


NEXT I 
CLOSE IN 
END 


impresc 


OPENIN 
FOR I=1 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
NEXT 1 
CLOSE IN 
END 


narse 


indible que lea siempre los juegos de 
irón. También puede hacer lo siguiente: 


"test.dat" 

TO 3 
$+9,apellidos 
apellidos 
*9,nombres$ 
nombres$+ 
*9,telefonos$ 
telefonos$ 


que, tras la apertura de un fichero, sus 
disponibles. Da exactamente igual si lee un 
juego de datos en una única instrucción 


INPUT, 


por ejemplo 
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con 


INPUT +$9,apellido$,nombre$,telefonos$ 


o bien si lo lee fraccionadamente, a base de varias 
instrucciones INPUT como por ejemplo mediante 


INPUT +$9,apellido*+ 
INPUT $9,nombres+$ 
INPUT +$9,telefonos$ 


Tras haber leido un juego de datos, un puntero o pointer 
marca el lugar donde ha de continuar la lectura. 


Puede cerrar prematuramente un fichero abierto para su 
lectura, es decir que no ha de leer todos sus elementos. 


Pero si desease leer el último elemento del fichero y 
realizara un nuevo intento de lectura, obtendria el mensaje 
de error: 


EOF met 


Se puede decir que el responsable de ello es un llamado 
puntero interno. Este puntero interno es inicializado 
inmediatamente tras la apertura de un fichero. Al principio 
tes decir, tras la apertura) este puntero señala el inicio 
del buffer de entrada, que se halla en la RAM del CPC, y con 
ello, el primer carácter en el fichero. Tras leer este 
carácter, el puntero se desplaza hacia la derecha y sefíala 
el siguiente carácter a leer, el cual es leido con la 
siguiente orden de lectura. 


-. 
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Leido el último carácter, este puntero interno apunta a la 
marca de END-OF-FILE y usted obtiene el correspondiente 
mensaje de error en pantalla. 


El siguiente gráfico le  aclarará este comportamiento del 
puntero interno: 


Puntero tras la apertura del fichero 
Puntero tras la lectura del primer carácter 


| Puntero tras la lectura del n-ésimo carácter 
Puntero tras la lectura del último E 


(Apunta a EOF) 
[7] Una posición de aemoria (Byte) MM harca de End-o+-+File 


Figura 8. Puntero interno 


Si la lectura se efectúa, no carácter a carácter, sino por 
campos de datos o incluso por juegos de datos, ello también 
puede representarse mediante el modelo del puntero interno. 
Este puntero muestra entonces, el primer juego de datos al 
principio, y se mueve a partir de este hacia los siguientes 
juegos de datos. 


La función BASIC EOF nos indica, por tanto, si en la 
lectura hemos alcanzado o no el últim elemento de un 
fichero. 


Para evitarlo puede utilizar la función de BASIC estándar 
EOF. Si no sabe exactamente cuántos juegos de datos ha de 
leer, resulta incluso imprescindible utilizar la función 
EOF. Nuestro programa ejemplo tendria el siguiente aspecto: 
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10 REM ===================="============= 
20 REM Leer datos con EOF 

30 REM ================================= 
40 : 

50 OPENIN "test.dat" 

60 WHILE NOT EOF 

70 INPUT +9,apellido$,nombre$,telefono$ 
80 PRINT apellido$,nombre$,telefono$ 

90 WEND 
100 CLOSE IN 
110 END 


Pero nuestro ejemplo es peligroso desde un principio ya que 
partimos de la hipótesis implicita de que nuestro fichero 
nos ofrecerá siempre tres campos de datos más si mo hemos 
tropezado con EOF. Ello no es posible en ficheros de 
estructura desconocida, por lo que nuestro programa tendria 
que tomar el siguiente aspecto: 


10 REM ================================= 
20 REM Lectura flexible de ficheros 


50 OPENIN "test.dat" 
60 WHILE NOT EOF 

70 INPUT +$9,campos$ 
80 PRINT campos$ 

90 WEND 

100 CLOSEIN 

110 END 
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En este programa está descartado un error EDF-MET, ya que 
cada campo es leido individualmente y seguido por una prueba 
de EOF. 


Cuando los campos de datos son leidos mediante el comando 
INFUT *9, son válidos como simbolos separadores de los 
campos “de datos los siguientes caracteres: 


Carriage Return (retorno de carro) 
coma (,) 
marca EDF 


Si lee variables numéricas mediante INPUT +9, también es 
válida la <barra espaciadora> como carácter separador 
(espacio). 


Estos caracteres de separación son fáciles de recordar dado 
que la coma y el retorno de carro son igualmente válidos en 
la rutina de INPUT normal como simbolos de separación. 


Por supuesto que podriamos definirnos un simbolo de fin 
"privado"; rellenando siempre el último campo de datos con 
"*fin" 0 algo por el estilo e ir comprobando su no 
aparición. Pero convendrá conmigo en que el manejo de la 
función EOF es más seguro y sencillo. 


Pero la mayoria de las veces, lo que deseamos no es 
unicamente leer los datos y darles salida directamente, sino 
que los datos estén en memoria para poderlos evaluar y 
variar. En tal caso lo mejor es utilizar un ARRAY, una 
variable indexada. Si esto no le suena, lea por favor el 
capitulo correspondiente en el manual de BASIC. 


Nuestro programa de ejemplo tendria el siguiente aspecto: 
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10 DIM apellido$(3),nombre$(3),telefonos$(3) 

20 REM ================================= 

30 REM Leer-almacenar datos 

20 REM ================================= 

50 : 

60 x=0 

70 OPENIN "test.dat" 

80 WHILE NOT EDF 

90 x=x+1 

100 INPUT +*9,apellidos$ (x),nombres$ (x), telefonos (;) 
110 WEND 

120 PRINT "Han sido leidos "3x-13" juegos de 
datos." 

130 CLOSEIN 

140 END 


En la instrucción DIM de la linea 10, ha de definir el 
limite del indice coherentemente con el máximo del número de 
datos. 


Mediante un bucle de este estilo se puede realizar la 
lectura de ficheros a través de una variable de campo, 
elaborarlo en el programa y, finalmente volver a almacenarlo 
secuencialmente. Es por tanto válida la siguiente regla de 
elaboración de datos, que podriamos llamar LEDS; Leer, 
Elaborar y Dar Salida, en este orden. Cuando la memoria lo 
permita, deberia leer sus ficheros de este modo y 
gestionarlos en el programa; obtendrá enormes ventajas en 
cuanto a la velocidad. 
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1.5.3. Ficheros secuenciales y variables de campo 


En programas extensos, y que tengan que gestionar una gran 
cantidad de datos resulta oportuno proporcionar exactamente 
la cantidad de datos prevista y definirla consecuentemente 
en el programa. A este concepto se le denomina también 
concepto de programaz se proporciona la llamada estructura 
de magnitudes. 


Asi que un fichero secuencial es un encadenamiento de juegos 
de datos, que constan a su vez de campos de datos. 


FICHERO 







ego de datos n 


Juego de datos 1 


Figura 9. Fichero 


Pero se puede visualizar aún mucho más el concepto de 
"fichero", mediante el uso de los llamados diagramas de 
sintaxis, usados por ejemplo en la definición de sintaxis 
(en la gramática, prácticamente) de lenguajes superiores de 
programación como el Pascal Oo el C. Estos diagramas de 
sintaxis fueron incorporados por primera vez en la 
definición del lenguaje estructurado de programación PASCAL 
de Nikolaus Wirth. 
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DIAGRAMA DE SINTAXIS DE FICHEROS 


o y SII 


JUEGO DE DATOS Caapo de datos 
CAMPO DE DATOS 


¡ED 


Figura 10. Diagrama de sintaxis de fichero 





Si lee una única vez el fichero secuencial y dispone todos 
los juegos de datos en la variable de campo, ahorrará una 
gran cantidad de tiempo, al no tener que volver a acceder a 
la unidad de disco. (Un acceso a variables es más rápido aún 
que un acceso al disco). 


Nuestras variables de campo tienen el siguiente aspecto: 


INDICE | AFELLIDOS$ | nombres | TELEFONOS 


Figura 11. Juego de datos 
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Asi pues hemos leido estos datos una vez y los hemos 
almacenado en tres variables de campo  unidimensionales 
distintas. Para un programador resulta más práctico disponer 
un campo bidimensional, para darle al monstruito un único 
nombre; ello redunda también en beneficio de la claridad del 


programa. 
VARIABLE DE CAMPO DE 2 DIMENSIONES 


INDICE APELLIDO NOMBRE TELEFONO 
is 1) 









DS(4,3) 





Figura 12. Campo bidimensional 


Nuestra variable de campo D$(x,y) consta de 5 juegos de 
datos con 3 variables de campo cada uno. Esta variable de 
campo hubo de ser "dimensionada", es decir, creada mediante 
la instrucción 


DIM D$(5,3) 


La variable de campo D$(x,y) contendria, por ejemplo, las 
siguientes anotaciones: 


D$ (x,1)=apellido antes apellidos (x) 
D$ (x,2) =nombre antes nombres$ (x) 
D$ (x,3)=telefono antes telefono$(x) 
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Nuestro ejemplo tendria el siguiente aspecto: 


10 REM ========================= 
20 REM Leer en D$(x,y) 

ZO REM =============o============ 
40 DIM D$(3,3) 

50 REM 3 juegos % 3 campos de datos 
60 OPENIN "test.dat"” 

80 FOR I=1 TO Z 

90 FOR J=1 TO 3 

100 INPUT +$9,D$(1,3J) 

110 NEXT J 

120 NEXT 1 

130 : 

140 REM ======================== 
150 REM SALIDA 

160 REM ======================== 
170 FOR I=1 TO 3 

180 FOR J=1 TOD 3 

190 PRINT D$(1,J>, 
200 NEXT J 
210 PRINT 
220 NEXT I 
230 CLOSEIN 
240 END 


Puede tomar este programa de ejemplo como muestra cuando 
escriba un programa de ficheros. Mediante el anidamiento de 
dos bucles conseguirá una lectura en secuencia lógica de 
los campos y juegos de datos. Si desea modificar datos en un 
programa de ficheros, es mejor que lea todos los datos 
mediante una variable de campo de este estilo. Después puede 
elaborar estos datos, corregirlos, etc... Al fin del 
programa, los datos han de volver a ser almacenados bajo el 
mismo nombre. 


Generalmente, se crea además un fichero auxiliar, en el que 
se encuentran informaciones sobre la estructura de 
magnitudes. Por dicha estructura entendemos la cantidad de 
datos anotados en el fichero y cuántos campos contiene cada 
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juego de datos. Si crea un programa flexible de ficheros, 
será ello imprescindible por motivos prácticos. Además, de 
este modo puede ahorrar espacio de memoria, lo cual siempre 
resulta importante, ya que cada coordenada innecesaria 
cuesta memoria y tiempo. El dimensionado en la instrucción 
DIM puede ser dinámico, es decir, puede usted incluir 
variables como limites de indice. Ya crearemos un fichero de 
informaciones de este tipo. Para ello tendremos que 
incorpotar el número de JUEGOS DE DATOS y el número de 
CAMPOS DE DATOS por juego. 


OPENOUT "test.inf" 
WRITE +49,3,3 
CLOSEOUT 


Pondremos "INF" a este tipo de fichero por fichero de 
INFormaciones. El nombre de fichero ha de ser en nuestro 
ejemplo igual al nombre del fichero(.dat). He aqui la rutina 
flexible de lectura: 


10 REM ========================= 
20 REM Rutina flexible lectura 
3O REM ========================= 
40 : 

50 INPUT "nombre de fichero : "¿files+ 
60 OPENIN file$+".inf” 

70 INPUT +9, juegos, campos 

80 CLOSEIN 

90 : 
100 DIM d$ (juegos,campos) 
110 : 
120 OPENIN=files$+".dat" 
130 FOR I=1 TO juegos 

140 FOR J=1 TO campos 
150 INPUT $9,d$(1,J) 

150 NEXT J 
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170 NEXT 1 
180 CLOSEIN 
170 END 


Ejecute el programa e introduzca "test". 


En la linea 100 se dimensionara, según las necesidades. En 
los casos en los que el número de juegos de datos pueda 
aumentar durante la ejecución del programa, ello ya ha de 
ser previsto al dimensionar. Otra solución es la de fijar 
previamente el número máximo de juegos de datos; ello no 
impide que el número de campos de datos siga siendo 
dinámico, ya que lo más probable es que éste no cambie. Pero 
la lectura del número de juegos de datos y de campos de 
datos sigue siendo una ayuda estimable. Si cambia la linea 
100 por la linea 


100 DIM d%$(200,campos) 
conseguirá que el número de campos dependa del fichero. 


Hasta ahora, en la apertura de ficheros sólo hemos 
considerado nombres de fichero fijos. Lo que es lo mismo, el 
nombre de fichero no es variable, se halla entre comillas y 
es fijado en la programación. De hecho, a veces se abren 
ficheros mediante variables de cadena, tal y como hicimos en 
nuestro ejemplo (lineas 60 y 120). Lamentablemente, en este 
aspecto el sistema operativo aún no está suficientemente 
maduro. El AMSDOS abre en ocasiones el fichero bajo un 
nombre equivocado oO bien reacciona mediante un mensaje de 
error. Si, tras este mensaje de error, da salida a la 
variable de cadena correspondiente, reconocerá con 
dificultad que el contenido de la variable es correcto. 


Al abrir un fichero, en la RAM del Amstrad se prepara un 
buffer de 4096 bytes. Esta memoria intermedia es libremente 
desplazable y se usa para almacenar de modo temporal los 
datos que son leidos o bien han de ser escritos en disco. 
Esta memoria intermedia suele estar en la región superior de 
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la memoria. El puntero para la posición de memoria más alta 
disponible para el BASIC (HIMEM) es reducido en ello 
exactamente en 4096 Bytes, y esto hasta que el fichero 
abierto vuelva a ser cerrado. El buffer del floppy se halla 
entonces por encima de este puntero de fin de memoria HIMEM 
(ver también figura). 


HIMEM + 4096 


Buffer entrada 


HIMEM + 2048 


Buffer salida 


HIMEM 





Figura 13. Buffer de floppy 


Pero por esta región superior se agrupan las variables de 
cadena. Aqui pueden darse, con facilidad, "colisiones", en 
especial al trabajar com variables de campo, dado que 
entonces el número de cadenas es especialmente elevado. 


De tanto en tanto, se hace necesario "hacer limpieza" de la 
zona de memoria asignada a las variables de cadena. De modo 
distinto a lo que ocurre con las variables numéricas, ya que 
de las manipulaciones de cadenas quedan trozos de cadena en 
la memoria. Se denomina garbage collection a esta 
"limpieza"; es una especie de reorganización de la memoria 
intermedia de cadenas. En ello puede ocurrir que este buffer 
de diskette se convierta en la victima de la reorganización. 
Si el buffer es desplazado por la garbage collection, el 
nombre de fichero no puede vol ver a ser leido 
satisfactoriamente. Con esta corta rutina podemos evitarlo. 
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OPENOUT "Dummy" 
MEMORY HIMEN-1 


CLOSEDUT 
Esta secuencia de instrucciones deberia incorporarse al 
comienzo de cada programa que trabaje con el diskette. Se 
reserva cuidadosamente el buffer de 4096 bytes, y es 


protegido mediante el comando MEMORY (el puntero de HIMEM se 
desplaza coherentemente). Ha de usar este comando antes de 
que se disponga la primera variable de cadena. Á partir de 
ese momento, el buffer de diskette ya no puede ser destruido 
por la garbage collection, ya que el buffer está protegido 
de ésta por el comando MEMORY. 


El nombre "Dummy" en la instrucción OPENOUT no indica, en 
este caso, fichero alguno (no se escribe en él), sino que es 
un término del argot para una especie de ”*cubo electrónico 
de basura””. Antes bien, mediante el comando OPENOUT "Dummy" 
se consigue la creación del antes mencionado buffer de 4096 
bytes. La variable del sistema HIMEM es consecuentemente 
decrementada para preservar de variables al buffer. Tras un 
CLOSEOUT, HIMEN volveria a ser desactivada, para evitarlo se 
utiliza el comando MEMORY. 


Asi que, en caso de que obtuviera un mensaje de error en 
nuestro programa de ejemplo, que no contiene esta rutina, 
incorpore la siguiente linea 40: 


40 OPENOUT "Dummy”" : MEMORY HIMEM-1 : CLOSEDUT 


PQueda aún otro peligro, consistente en que el usuario entre 
un mombre de fichero incorrecto, lo que llevaria a la 
ruptura del programa. Pero también esto puede ser evitado 
creando por ejemplo un fichero en el que estén registrados 
todos los nombres de fichero -— en la práctica, pues, un 
"directorio privado”. Llamaremos a este fichero 
"filename.dir". 
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OPENOUT "filename.dir" 
FPRINT $9,"test" 
CLOSEDUT 


Nuestro directorio privado sólo está disponible a partir de 
la entrada "test". Ya sólo hemos de construirnos esta rutina 
de test, y quedará descartado un mensaje de error. 


10 REM ============================ 
20 REM Rutina flexible de lectura 

40 OPENOUT "Dummy" : MEMORY HIMEM-1 : CLOSEOUT 
50 INPUT "Nombre de fichero : ";files$ 
60 GOSUB 1000 

70 IF hallado=0 THEN 50 

80 OPENIN file$+".inf” 

90 INPUT 49, juegos, campos 

100 CLOSEIN 

110 : 

120 DIM d$(200,campos) 

130 : 

140 OPENIN=4iles$+".dat" 

150 FOR I=1 TO juegos 

160 FOR J=1 TO campos 


170 INPUT +$9,d$(1,J) 

180 NEXT J 

190 NEXT 1 

200 CLOSE IN 

210 END 

1000 REM ======================= 
1010 REM Nombre permitido ? 
1020 REM ======================= 


1030 OPENIN "filename.dir" 

1040 hallado=0 

1050 WHILE NOT EOF AND hallado=0 

1060 INPUT +9 apellidos$ 

1070 IF apellido$=file$ THEN hallado=1 
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1080 WEND 
1090 CLOSE IN 
1100 RETURN 


Una comprobación como ésta, o similar, resulta inexcusable 
para estructurar un programa de forma que resulte de uso 
agradable. Las entradas erróneas deberian ser detectadas y 
bloqueadas, en la medida de lo posible. 


En cualquier momento, sólo es válido un canal de entrada 
abierto y un camal de salida abierto. De modo que puede 
abrir como máximo dos canales hacia el floppy. Los canales 
son los intermediarios entre el sistema operativo del CPC y 
el  AMSDOS, que es el encargado del almacenamiento y la 
lectura de datos en disco. Existen en el CPC además, y a 
titulo de ejemplo, un canal ala pantalla y un canal al 
teclado. Cada umo de estos canales dispone de un número 
lógico, mediante el cual puede uno referirse a los distintos 
aparatos. 


Buffer de entrada 


Diskette 


Buffer de salida 





Sistema operativo 


Figura 14. Canales % buffer 
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En la subrutina que comienza en la linea 1030 se comprueba 
si existe un fichero con el imnombre file. Para ello se 
comparan todos los apuntes existentes en el fichero 
"filename.dir" com la variable Hfile$. En caso de que la 
rutina llegue al final del fichero sin haber encontrado el 
nombre, la variable "hallado" es igual a cero (0). La 
variable es puesta a 1iencaso de que la comparación se 
verifique. Este valor puede ser comparado en el programa 
principal, pudiéndose actuar en consecuencia. 


Si desea por ejemplo escribir un cómodo programa de gestión 
de direcciones, seria aconsejable ¡incluir en el mismo 
rutinas de protección de este estilo 


Naturalmente, hemos de asegurarnos previamente de que el 
fichero "filename.dir" exista, ya que en caso contrario 
apareceria el mensaje File not  fout. Para evitar esta 
circunstancia podriamos incorporar un punto en el mená 
llamado ””Reinicialización del sistema”*?”?, 0 algo por el 
estilo, que creará este fichero. 


Todos estos "trucos? están incluidos en el programa de 
gestión de ficheros que hallará en el capitulo S de este 
libro. Se recomienda trabajar los diferentes apartados del 
programa para comprender el manejo de las rutinas. 
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1.5.4 Diferencias entre PRINT + y WRITE + 


Hasta ahora hemos usado únicamente el comando PRINT. Seguro 
que ya habrá observado, tanto en el manual de programación 
com en el presente libro, que también existe el comando 
WRITE +. 


En nuestro programa ejemplo se utilizó carriage return como 
carácter separador. Fero puede recordar que carriage return 
no es el único carácter separador, la coma (,) también 
sirve como tal, tanto para cadenas como para datos 
numéricos. En el caso de datos numéricos, a uno le puede 
resultar indiferente el que vayan separados por una coma, un 
carácter separador o simplemente un espacio. Pero en el caso 
de variables de cadena, a uno le pueden empezar a suceder 
cosas desagradables. Pruebe el siguiente ejemplo: 


10 REM ========================= 
20 REM Ejemplo de PRINT + 
3O REM ========================= 


50 OPENOUT "Demo" 

60 PRINT "9,"Gimenez, Juan" 

70 PRINT +49, "Espasa, Susana" 
80 CLOSEOUT 

90 : 

100 REM========================= 
110 REM Nueva lectura 

120 REM========================= 
130 : 

140 OPENIN "Demo" 

150 INPUT 49, personal$ 

1650 INPUT 49, persona2$ 

170 CLOSEIN 

180 PRINT "personal = "personal$ 
190 PRINT "persona2 = "persona2% 
200 END 
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Seguro que espera que la salida a pantalla sea algo parecido 
a esto: 


personal = Gimenez, Juan 
persona2 = Espasa, Susana 


Algunos de ustedes ya lo sabrán: por lamentable que sea, el 
resultado no tiene este aspecto. Cuando ejecute el programa 
se llevará una sorpresa: 


personal = Gimenez 
persona2 = Juan 


En el ejemplo se ve claramente que la coma funciona como 
carácter separador y que en la instrucción INPUT +49 ha 
conducido a la separación de las dos cadenas. Faltan también 
la coma en la Cadena de caracteres y el carácter vacio 
delante de "Juan". La solución del problema es muy sencilla: 
al utilizar el comando WRITE * la cadena a imprimir será 
puesta entre comillas. Al leer esta cadena, todos los 
espacios vacios y comas serán tranferidos a la cadena. 
Unicamente las comillas han de dejar de ser consideradas de 
dicha cadena, como efectivamente ocurre. 


Mediante el comando WRITE puede también dar salida a 


pantalla a valores y aclarar asi el funcionamiento del 
comando. Introduzca: 


WRITE 1,2,"Si, si, esto es asi.”",3 


En la pantalla aparecerá: 


1,2,"Si, si, esto es asi.",3 
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Si hace lo mismo mediante la instrucción PRINT, aparecerá lo 
siguiente en la pantalla: 


1 2 Si, si, esto es asi. 3 


Una coma en la instrucción PRINT provoca el salto del 
tabulador a la siguiente posición de  tabulado, lo que 
produce grandes espacios vacios. En el disco se escribe 
igual que en pantalla, es decir, se transferirian igualmente 
una gran cantidad de espacios (lo que, por cierto, no ahorra 
memoria que digamos). 


Lo que es fácil constatar es que, a causa de las comas, la 
cadena ya no puede ser reconocida como tal. En el comando 
WRITE, com las comillas no cabe confusión respecto al 
principio y final de la cadena. 


Como agradable efecto secundario obtenemos el ahorro de 
espacio en el disco, si se desean almacenar datos numéricos. 


También resultaria posible simular el comando WRITE mediante 
el comando PRINT: 


PRINT 1","32;","CHR$(34);"Si, si, esto 
es asi."¡CHR$(34)3","33 


El resultado seria ahora el mismo en la pantalla y en el 
disco, además de conseguir en la lectura el efecto deseado. 
Pero el comando WRITE es más sencillo y cómodo, por ello 
deberia ser usado más a menudo. Resulta especialmente 
práctico cuando se desea escribir varios campos de datos en 
disco en una linea BASIC. Como se desprende del programa, 
con cada linea PRINT + hemos grabado en el disco un único 
campo de datos, enviando con ello un carriage return como 
simbolo separador, ya que no tenemos punto y coma alguno al 
final de la instrucción PRINT $. Asi que con la instrucción 
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WRITE nuestro programa se hace más corto y claro, 
presentando el siguiente aspecto: 


10 REM ==============o==o==o==:===== 
20 REM Ejemplo de WRITE + 

30 REM ========================= 
40 : 

50 OPENDUT "Demo" 

60 WRITE +$9,"Gimenez, Juan” 

70 WRITE +49,"Espasa, Susana" 
80 CLOSEQUT 

90 : 

100 REM========================= 
110 REM Nueva lectura 

120 REM========================= 
130 : 
140 OPENIN "Demo" 

150 INPUT +*9,personal$ 
160 INPUT +49, persona2$ 
170 CLOSEIN 


180 PRINT "personal = "personal$ 
190 PRINT "persona2 = "persona2$ 
200 END 


Tras ejecutar el programa observará que hemos llegado al 
resultado deseado. 


Asi que, tras uma instrucción PRINT * y una instrucción 
WRITE +, automáticamente se escribe un carácter separador, 
el carriage return. Pero hay casos, en los que se desea 
renunciar a ello, por ejemplo al calcular cadenas de 
caracteres e ir dándoles salida una detrás de otra. Ahora 
nos proponemos dar salida a todo el alfabeto, y no 
solucionamos el problema mediante una simple instrucción 
PRINT *, sino que programamos un bucle. 
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10 REM ===m====================== 
20 REM Ejemplo de encadenamiento 
3O REM ========================= 
40 : 

50 OPENOUT "Demo" 

60 FOR i=1 TO 26 

70  PRINT 49,CHR$(64+1); 

80 NEXT i 

90 PRINT $9 

100 CLOSEOUT 

110 OPENIN "Demo" 

120 INPUT $9,as$ 

130 PRINT a$ 

140 CLOSEIN 

150 END 


En la linea 60 definimos un bucle de indice i, que va de 1 a 
26. En efecto, el alfabeto (de nuestro Amstrad) tiene 26 
letras. El código ASCII de "A" es 65, de modo que podemos 
obtener en la linea 70 el código ASCII del carácter a 
imprimir a partir del valor actual del indice del bucle 
sumándole 64. (Código ASCII proviene de American Standard 
Code Hfor  Interchange y es utilizado en la mayoria de 
ordenadores domésticos y personales para la codificación del 
alfabeto y caracteres especiales). Lo importante es que el 
último carácter en la linea 70 es un punto y coma. Al igual 
que en el BASIC normal, al efectuar una salida a pantalla, 
el punto y coma tiene en el disco el efecto de evitar que se 
envie un "fin de campo de datos”, comparable al envio de un 
"fin de linea”? en la pantalla. 


Tras ¡iniciar el programa, vemos que la variable a$ contiene 
el alfabeto completo. A buen seguro ha quedado aclarado el 
significado del punto y coma. En este ejemplo en concreto, 
no hubiera podido utilizar de ningún modo el comando WRITE, 
La salida hubiera tenido el siguiente aspecto: 
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"AS Bro DEE PPGOUH cc cc MY POZO" 


mientras que con nuestro ejemplo obtenemos el siguiente 
resultado: 


ABCDEFGH... .YZXk 
(*X representa de nuevo carriage return) 


Como ve, para cada caso ha de reflexionarse acerca de cual 
es el comando más indicado. Á menudo resulta indiferente el 
usar PRINT $9 o WRITE $9. A veces WRITE +9 es más efectivo, 
pero en ocasiones, como en este ejemplo, es totalmente 
inutilizable. 


Intente deducir el valor que contendria la variable a%t si 
sustituyésemos la linea 70 por: 


70 WRITE 49,CHR$(1+64); 


Si ha llegado a una conclusión, cambie la linea y ejecute el 
programa. ¿Acertó? Entonces puede pasar al capitulo próximo. 


1.5.5 Diferencias entre INPUT _+* y LINE INPUT + 


Ya habrá comprendido las diferencias entre PRINT +9 y WRITE 
$9. También para la lectura de datos existen dos órdenes 
distintas: la orden INPUT +49 normal, que hemos utilizado 
hasta ahora, y la orden LINE INPUT +49. También entre ellas 
existen diferencias sustanciales. 


Nos limitaremos en nuestra comparación entre INPUT y LINE 
INPUT a variables de cadena, dado que el sentido de la 
instrucción LINE INPUT sólo queda claro al manejar variables 
de cadena. 
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Sabemos que los campos de datos están separados entre si por 
simbolos separadores. Estos simbolos separadores pueden ser: 
el retorno de carro, la coma y mel carácter EOF. Por lo 
tanto, no podremos leer mediante INPUT +9 una cadena que 
contenga una coma (a menos que encerremos la cadena entre 
comillas), ya que la coma seria interpretada automaticamente 
como un simbolo separador. De ello surge otro problema: si 
las comillas marcan una cadena, ¿cómo puedo leer comillas”? 
las comillas no pueden en absoluto ser leidas de una cadena 
mediante INPUT, esto está claro. 


Aqui es donde aparece el comando LINE INPUT. LINE INPUT lee 
cualquier carácter; solamente el retorno de carro es válido 


como simbolo separador, por lo que las comas y comillas son 
aceptadas por LINE INPUT. 


Si utiliza el comando 


WRITE 49,1,2,"Si, si, esto es asi.",3 


para escribir en disco, y vuelve a leerlo con 


LINE INPUT +49, todo$ 


la variable todo$ tendrá el siguiente contenido: 


1,2,"Si, si, esto es asi.",3 


Es decir, se incluirian todos los simbolos separadores en la 
cadena sin excepción, incluidas las comillas. 


El comando LINE INPUT mo siempre resulta mejor que el INPUT; 
de hecho, el cambiar simplemente todos los INPUT *9 de un 
programa por LINE INPUT $9 tendria, en general consecuencias 
catastróficas. Ya se puede imaginar que el motivo de ello 
gira alrededor del hecho de que son leidos los separadores. 
Si al utilizar los comandos PRINT O WRITE no se considera 
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que la lectura se efectuará mediante LINE INPUT, com lo cual 
solamente el retorno de carro continuará separando, el 
resultado puede parecer cosa de brujas. Si escribe un 
programa propio que acceda frecuentemente a disco, piense 
bien qué órdenes utilizar para la escritura y la lectura. 


Pero pongamos un ejemplo en el que la orden LINE INPUT 
resulta indispensable, dado que ha de ser leido un fichero 
de contenido y estructura desconocidos. 


Cargue uno de los programas de este libro y almacénelo 
directamente mediante 


OPENOUT "ASCII.DAT" 
LIST +49 
CLOSEDUT 


Ha almacenado en disco el listado del programa bajo el 
nombre "ASCII.DAT". No resulta posible abrir un fichero de 
programa normal para su lectura mediante la orden OPENIN, 
dado que este fichero tiene un header (=cabecera), que no es 
aceptado con la instrucción OPENIN. Asi que tras haber 
LIiSTado un fichero de programa en disco, introduzca el 
siguiente programa: 


40 : 

50 OPENIN "ASCII.DAT" 

60 WHILE NOT EOF 

70 LINE INPUT +49,linea$ 
80 PRINT linea$ 

90 WEND 
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100 CLOSEIN 


110 END 
Esta rutina le mostrará en la pantalla el listado de su 
programa, con todas las comas y comillas, como en el 
programa original. Para tareas como ésta o similares resulta 
muy indicado el comando LINE ., INPUT que recoge del disco 


todos los caracteres sin ningú 
Lamentablemente, en el BASIC d 
lectura de caracteres individ 
lectura, al contrario de otras 
ordenadores. Esta posibilidad 

de poder hacer legible inc 
carro. Sim embargo, existe 

CHAR, que puede usted utilizar 
de hecho, sólo en lenguaje 
escribir para su problema 
transfiera el carácter leido a 


Aqui tiene una corta rutina 
Cuando salte a la rutina, 
para la lectura. 


10000 REM =============== 
10010 REM Rutina 
10020 REM =============== 
10030 : 

10040 IF LEN(in$)=0 THEN 
10050 ch$ = LEFT$(in$,1) 
10060 in$ = MID$*(in$,2) 
10070 RETURN 

10080 IF EOF THEN CLOSEIN 
10090 LINE INPUT +$9,in$% 
10100 IF NOT EOF THEN ins$ 
10110 GOTO 10050 


n problema. 


el Amstrad no está prevista la 

uales del fichero abierto para 
versiones de BASIC para otros 

tendria, obviamente, la virtud 

luso el carácter de retorno de 
una rutina en el DOS, DISC IN 
para ello (ver listado DOS) 
máquina. Puede usted entonces 
especifico una rutina que 
su programa BASIC. 


que simula la orden BASIC GET. 
el fichero ha de estar abierto 


chs="" 


RETURN 


in$ + CHR$ (13) 
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El carácter leido será transferido a la variable ch$, siendo 
el retorno de carro un carácter licito. Tras leer el último 
Carácter, ch$ estará vacila, por lo que LEN(ch$) será igual a 
cero. 


Para leer en diálogo por pantalla valores numéricos (cifras) 
usted suele utilizar el comando 


10 INPUT valor 


En caso de que introduzca un valor no numérico, el sistema 
se manifesta mediante 


?Redo from start 


Naturalmente, el AMSDOS no puede dar salida a un mensaje de 
este tipo. Algunos sistemas envian un FILE-TYPE-ERROR, lo 
que viene a significar: se transfirib una cadena en lugar de 
un valor numérico. El AMSDOS no envia mensaje de error 
alguno, sino que lleva a cabo, internamente, el siguiente 
cálculo: 


10 INPUT 49,a$ : valor=val (a$) 


Aqui queda claro porqué el espacio vacio sirve de carácter 
separador en el caso de cifras. Aparte de éste, cualquier 
otro carácter no numérico sirve de separador, con la 
excepción de "E" o bien de "e", preciso para la 
representación en formato exponencial. 
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1.6 Almacenamiento relativo de datos 


1.6.1 ¿Qué es el almacenamiento relativo de datos? 


Como ya mencionamos anteriormente, todas las técnicas de 


almacenamiento de datos se reducen en esencia al 
almacenamiento secuencial o bien al almacenamiento relativo 
(de datos). Ya hemos tratado en profundidad el 


almacenamiento secuencial, queremos ahora seber lo que se ha 
de entender por almacenamiento relativo de datos. 


En ello se plantea para usted, como propietario de un CPC, 
un problema inmediato. En el sistema operativo del Amstrad 
no se previó, lamentablemente, el almacenamiento relativo de 
datos; ello significa que no existen órdenes, de modo que la 
explicación del presente tema a base de ejemplos puede 
presentar dificultades. Pero solventaremos en común también 
este problema cuando hayamos tratado la parte tebrica del 
almacenamiento relativo de datos. 


En los ficheros secuenciales podiamos abrir un fichero, bien 
para la lectura, o bien para la escritura. En caso de que el 
fichero sea abierto para la escritura, el contenido anterior 
del fichero resulta totalmente sobreescrito; en la práctica, 
se dispone el fichero bajo el mismo nombre, pero sin que el 
contenido anterior juegue papel alguno. Cierto que el 
sistema operativo del CPC crea una copia de seguridad, el 
fichero BAK, pero ello supone tan sólo un consuelo minimo. 


En sistemas operativos algo más cómodos, se pueden encadenar 
datos a un fichero secuencial ya existente. Es decir, que un 
fichero no se abre para escritura, con lo cual quedaria 
destruido, sino para el encadenamiento. El puntero interno 
apunta tras la apertura directamente al último elemento. Las 
subsiguientes acciones de escritura serán encadenadas a los 
datos existentes. En inglés se denomina a esto Append. Asi 
que el contenido de mun fichero se conserva y se encadenan 
únicamente datos nuevos al final de este fichero existente. 
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Ello puede ser, por ejemplo, interesante en un (fichero) 
diario para contabilidad. 


Su aspecto es totalmente distinto en la gestión relativa de 
datos. En ella, un fichero se abre siempre para la lectura y 
la escritura simultánea. Hemos de olvidarnos de que un 
carácter (byte) ha de seguir obligatoriamente al otro. De 
modo distinto a lo que ocurre en el almacenamiento 
secuencial de datos, en el almacenamiento relativo de datos 
se puede acceder libremente a cualquier carácter del 
fichero. 


Nos hemos imaginado el fichero secuencial como una caja de 


fichas, en la que cada ficha está detrás de otra. En ello, 
cada ficha representa un juego de datos. 


Si queremos llegar al n-ésimo juego de datos de nuestro 
ejemplo, todos los juegos de datos antecedentes han de ser 
sobreleidos. Un proceso con gran consumo de tiempo. Si 
volvemos a nuestro modelo de la caja de fichas, deberiamos 
leernos cada ficha que precede a la n-ésima. 







----> 


Pero con el almacenamiento relativo de datos podria usted 
señalar directamente, mediante el puntero, el juego de datos 
n y leer su contenido, sin preocuparse de leer el contenido 
de los tres juegos de datos que de hecho le anteceden; el 
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puntero interno es, por tanto, movible a voluntad. La 
siguiente figura aclarará esta movilidad. 


Fichero relativo 





Puntero interno 





Ya puede posicionar puntero interno 
' primer juego de datos "último juego de datos 


[] 1 juego Pd EDF 


Figura 15. Puntero interno 


Si disponemos de un fichero relativo, ello se puede 
comparar, en nuestro modelo de la caja de fichas, a poder 
elegir la ficha deseada. 


El almacenamiento relativo de datos se denomina en inglés 
Random Acces, lo que viene a significar acceso directo o 
aleatorio. También se puede aclarar de modo "relativamente" 
sencillo el término "relativo". El acceso a un juego de 
datos se efectúa siempre en relación al inicio del fichero. 


Imaginese que abre un cajón, en el que hay 100 carpetas. 
Cada carpeta representa un juego de datos, con abundante 
información acerca de un cliente, por ejemplo. Puede extraer 
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la carpeta que desee, y reconocerá la deseada, por ejemplo, 
por un titulo escrito sobre ella. 


Pero el almacenamiento relativo de datos no tiene sólo 
ventajas. Si bien el acceso y el manejo resultan mucho más 
cómodos que en el almacenamiento secuencial de datos, 
resulta imprescindible hacerse una idea de la magnitud de la 
estructura antes de la creación de un fichero relativo. En 
ello cuentan tanto la magnitud de los juegos de datos como 
el número previsible de juegos de datos que ha de comprender 
el fichero. Y es que, de modo distinto a lo que ocurria con 
el fichero secuencial, para los ficheros relativos hay que 
disponer previamente un fichero, antes de que pueda ser 
escrito. También aqui hay diferencias: en algunos sistemas 
operativos pueden luego encadenarse más juegos de datos -— en 
otros sistemas no se da esta posibilidad. Aceptaremos que no 
pueden encaderse juegos de datos, y ello por dos motivos: 


a) en "nuestra" gestión relativa de ficheros ello no 
resulta posible, ya que no fue previsto, 


b) uno deberia acostumbrarse a reflexionar siempre 
acerca de la magnitud y esquema de un fichero, ya 
que se reducen los errores y no surgen desagra- 
dables sorpresas. 


1.6.2 La disposición de un fichero relativo 


Pero, ¿porqué he de hacerme una idea sobre el tamafío de cada 
juego de datos en la creación de un fichero relativo?, se 
preguntará. 


Ya comentamos que el almacenamiento relativo de datos sólo 
resulta posible, a Causa del sistema operativo, si se 
determina con exactitud la longitud de cada juego de datos. 
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Pero las limitaciones no son tan intratables como quizás 
piense usted en este momento. 


Usted puede, evidentemente, no alcanzar esta longitud máxima 
de juego de datos definida, de modo que lo que realmente 
fija es un espacio máximo de juego de datos. De hecho, 
deberia vigilar, en su programa, que no se sobrepase esta 
longitud máxima. Si ello sucediese, el juego de datos 
siguiente seria sobreescrito y con ello parcial o totalmente 
borrado, con una probabilidad casi absoluta. 


También depende de la máquina en la que programe el que 
tenga que definir simplemente la longitud de juego de datos 
o bien la longitud de cada campo de datos de forma 
explicita. En el PC de IBM, por ejemplo, ello es de tal modo 
que ha de definirse la longitud de cada campo de datos. Una 
caracteristica muy razonable del potente MS-BASIC, ya que de 
esta forma no se pueden sobrepasar las estrictas fronteras 
de los campos de datos, lo que conduce a un disciplinado 
estilo de programación. 


En "nuestra" gestión relativa de ficheros (realizada en el 
capitulo 5) la situación es la siguiente: la longitud de los 
campos de datos a crear puede variar, pero sin que la suma 
de las longitudes de los campos de datos sobrepase la 
longitud máxima de juego de datos. 


Pero pasemos a ver de un modo más detallado cómo se calcula 
la tantas veces citada longitud máxima de juego de datos. 


Un juego de datos -—-como vimos en el capitulo 1.5- consta de 
uno Oo más campos de datos. Los campos de datos que se 
precisan depende obviamente muchisimo de la situación del 
momento. En nuestro ejemplo queremos referirnos al 
tratamiento convencional de datos, por lo que tomaremos como 
ejemplo un sencillo juego de datos de direcciones. Este 
juego de datos ha de contener los siguientes campos de 
datos: 
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Nombre (y apellidos) 35 caracteres 
Calle (+ número) 20 caracteres 
Población + provincia 22 caracteres 
Teléfono 15 caracteres 
TOTAL: 92 caracteres 


Asi que cada juego de datos comprende 92 caracteres. Si 


programamos con un sistema que permita flexibilidad 
longitudes de campos de datos, hemos aún de  afiadir 4 
caracteres a estos 92 calculados. Precisamos estos 4 


caracteres como caracteres separadores de los distintos 
campos de datos. La gestión relativa de ficheros incluida en 
el presente libro también necesita estos 4 caracteres 
separadores — incluya, por tanto, los caracteres separadores 
en su cálculo. Llegamos asi a una longitud total de juego de 
datos de: 


96 caracteres 


En caso de que un juego de datos no alcance esta longitud, 
el espacio restante para este juego de datos será 
"rellenado" en el disco. 


Tras haber calculado la longitud de nuestro juego de datos, 
deberiamos pensar en cuántos de estos juegos de datos 
precisamos. Como ya indicamos, hay sistemas en los que se 
pueden encadenar juegos de datos con posterioridad -— pero 
ello noes la regla, y resulta imposible en nuestra gestión 
relativa de datos. Es por ello que deberá estimarse con la 
máxima precisión posible la cantidad de juegos de datos que 
se espera en un futuro, ya que tal cantidad será la que 
tenga que ser dispuesta. 


Supongamos que usted tiene 60 fichas de este estilo, que 
desea gestionar por ordenador. Usted espera un incremento de 
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un 50 Z. En tal caso, mo deberia ahorrar, y deberia prever y 
disponer tranquilamente 120 O incluso hasta 150 juegos de 
datos. 


En el capitulo S le aclararemos cómo disponer estos juegos 
de datos, precisamente cuando le expliquemos los nuevos 
comandos. 


1.6.3 ¿Cómo trabajar con un fichero relativo? 


Una vez creado en el disco espacio suficiente para recibir 
la cantidad prevista de juegos de caracteres, se habrá 
conseguido lo más importante para disponer de este fichero 
relativo. De modo distinto a lo que ocurre con los ficheros 
secuenciales, podemos renunciar a leer todo el fichero en 
memoria — por ejemplo, en una variable de campo -—. Ya que el 
manejo del almacenamiento relativo de ficheros posibilita el 
acceso directo, rápido y sin problemas, se puede hablar, 
refiriéndonos al fichero relativo, casi como de una variable 
de campo externa. 


Esta comparación no está tomada por los pelos. Hemos 
dispuesto en el disco el fichero relativo. Ello es 
comparable al dimensionamiento de una variable. Mediante el 
comando DIM se reserva espacio en memoria para la variable. 


De modo ¡igualmente sencillo al del caso de una variable de 
campo puede usted también acceder en el fichero relativo a 
cada componente existente. En el argót se denomina a esta 
"componente", que representa un juego de datos, RECORD o 
registro. Asi que cada juego de datos (record) tiene un 
número de record fijo asignado que lo identifica. Se plantea 
ahora la cuestión de si hemos de numerar nuestros 150 juegos 
de datos de0as149 o bien de 1 a 150. En la mayoria de 
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los equipos se comienza por el número de record O, de modo 
que no hace usted nada incorrecto si comienza por el número 
de record 1, a lo sumo desaprovecha un record. 


Un pequeño consejo: Incluso en una memoria externa, ha de 
anotar en alguna parte cuántos records están ocupados en su 
fichero. Puede disponer, evidentemente, estos datos y otros 
similares en un fichero secuencial, pero la práctica indica 
que resulta mucho más útil "desaprovechar" el record O 
exclusivamente para estos fines. De este modo, además, no le 
falta a uno la referencia entre un fichero secuencial y otro 
relativo. Pero no olvide, con vistas a la seguridad, incluir 
un juego de datos más en su cálculo. 


Como ya mencionamos, un fichero relativo siempre es 
simultáneamente abierto para la lectura y la escritura. Dado 
que lo más frecuente es el acceso a un fichero relativo, y 
en muy repetidas ocasiones, se suele abrir al principio, y 
se cierra poco antes de finalizar el programa. De este modo 
se ahorra mucho tiempo que se consumiria en las aperturas y 
los cierres. Lamentablemente, en el CPC no resulta posible 
mantener abiertos simultáneamente un fichero relativo y uno 
secuencial. La causa de ello es que el espacio para el 
buffer de datos con sólo dos ficheros abiertos resulta ya 
bastante pobre en el CPC - y esto no lo podemos cambiar. 
Dado que el fichero relativo es abierto para lectura y 
escritura simultáneamente, se ocupan ambos buffers en el 
CPC. 


Una vez abierto un fichero relativo, el acceso a un record 
cuaquiera deja de ser un problema. El número de record es 
suficiente para la identificación. Por regla general, el 
número de ¡identificación se da en el comando de lectura o 
escritura, por ejemplo: 


GET $1,11,A$ 
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En PASCAL se transferirá el número de record como primer 
parámetro del comando WRITE. También se da el caso de que se 
elija el record deseado mediante un comando correcto, como, 
por ejemplo, SEEK o bien RECORD. Es este el caso de nuestra 
gestión relativa de ficheros: antes de poder leer o escribir 
un juego de datos, éste se elige mediante el comando RECORD. 
Ello permite un elegante paso a la pregunta: 


1.6.4 ¿Cómo funciona la gestión relativa de ficheros? 


Hasta ahora no hemos mencionado el motivo por el que el 
sistema operativo precisa la longitud de record. Pero es que 
sin longitud de record, no se puede hacer nada. 


Hemos comentado, que el sistema operativo rellena el espacio 
restante ante juegos de datos de longitud menor que la 
longitud máxima de juego de datos. Pero el sistema operativo 
sólo puede hacerlo si conoce esta longitud máxima. Esta es 
la primera, pero mo la más importante razón por la cual el 
sistema operativo ha de conocer esta longitud de record. 


Mucho más importante aún resulta esta información en la 
determinación de la posición relativa respecto al inicio del 
fichero a partir del número de record. Un fichero con 150 
juegos de datos de 96 caracteres cada uno no es otra cosa 
que una sucesión de 


150 x* 96 = 1440 caracteres. 


Si desea leer, por ejemplo, el juego de datos de número de 
record 77, éste se halla, en relación al inicio del fichero, 
en la posición: 
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77 * 96 = 7392 


Mediante este número, 7392, que le proporcionamos, el 
sistema operativo sabe que puede pasar por altomen la 
lectura 7392 caracteres. Con una magnitud de sector de 512 
bytes, el juego de datos número 77 se hallará, por tanto, 


7392 / 512 = 14,43375 


en el sector 14 del fichero relativo. Observe que mediante 
este proceso de cálculo existe también el sector cero. En el 
directorio están contenidos los sectores ocupados por un 
fichero. Se puede determinar este número de pista-sector de 
este sector y leerlo en el buffer, en su caso. Digo que "en 
su Caso”, porque un sistema operativo realmente eficiente 
(com en nuestra gestión relativa) sólo leerá un bloque en 
el buffer si resulta realmente necesario. Si el mismo bloque 
hubiese sido leido anteriormente, una nueva lectura 
resultaria evidentemente supérflua. 


Hemos de determinar ahora la posición en la que comienza el 
juego de datos en nuestro sector calculado. También para 
ello es esencial la longitud de record. Desde el punto de 
vista matemático, este cálculo es elemental: se trata de una 
función normal de resto, también llamada función de MODULO. 
Calcularemos la posición en el bloque tal y como sique: 


7392 — 1NT(7392/512)1x512 = 224 


Asi que el carácter 224 en el buffer es, en consecuencia, el 
primer carácter del juego de datos 77. Asi es como fue 
realizada la gestión relativa de datos en el CPC. En 
cualquier caso, com una pequeña limitación en lo que a la 
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longitud de record se refiere; pero para ampliar esta 
información, vea el capitulo 5.3. 


1.6.5 ¿Cuándo es lógico el almacenamiento relativo? 


Esta es, sin duda, una pregunta interesante, si es que la 
técnica de almacenamiento relativo le ha hecho "tilin". Hay 
que admitir que el almacenamiento relátivo es muy cómodo. 
Pero deberia evitar usar el almacenamiento relativo para 
cualquier pequeño problema. 


No deberia olvidar nunca que, por regla general, la 
programación de ficheros relativos lleva algo más de trabajo 
de programación. Para la resolución de pequeños problemas 
tal trabajo de programación resultaría desproporcionado; 
ello por cierto afecta de igual modo a la velocidad de 
ejecución. 


Asi que si desea almacenar pequeñas tablas, o cosas por el 
estilo, el almavcenamiento secuencial es el más indicado 
para ello. El almacenamiento relativo empieza a ser 
interesante a partir de unos 50 juegos de datos. El 
almacenamiento relativo de datos también vale la pena cuando 
resulte muy dificil, o imposible por completo, retener todos 
los datos en memoria. 


En grandes ficheros personales oO de direcciones, el 
almacenamiento relativo es, con toda seguridad, ineludible. 
Todo programa de una cierta envergadura de gestión de 
ficheros como por ejemplo DBASE O bien DATAMAT trabajan 
exclusivamente con ficheros relativos. Por ejemplo en la 
ordenación de un fichero siguiendo un cierto criterio, el 
almacenamiento relativo es, por exigencias de espacio de 
memoria, la única solución posible. 


Antes de afrontar la resolución de un gran problema mediante 
almacenaniento relativo, deberia "entrenar" un poco. Se 
presta amello un pequeño programa que almacena direcciones, 
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las carga y las corrige. Cuando haya asimilado todo esto, 
estará en condiciones de  vérselas con juegos de datos 
mayores y con mayores cantidades de juegos de datos. Seria 
lamentable que apareciera un error en momento dado y tuviera 
que constatar que se sobreescribieron involuntariamente 
juegos de datos. 


1.6.6 Los ficheros ISAM 


Se puede afirmar sin temor que los ficheros ISAM son los 
tipos de fichero que, en la práctica, aparecen con mayor 
frecuencia. ISAM significa: 


Indexed Secuential Access Method 


Ha supuesto bien: el "metodo de acceso secuencial indexado" 
es una mezcla de almacenamiento relativo y almacenamiento 
secuencial de datos. Para aclarar el concepto "Index", hemos 
de adentrarnos un paso más en el mundo de la técnica de 
gestión de ficheros: 


Seguro que aún se acuerda de nuestro juego de datos, que 
contiene cuatro campos de datos: nombre, calle, población y 
teléfono. Supongamos que tenemos 100 juegos de datos 
almacenados en este fichero. ¿Qué tendria que hacer,si 
desease hallar el juego de datos de un cliente, conociendo 
únicamente su apellido? Exacto: el programa deberia -— 
suponiendo que el fichero estuviese ordenado alfabéticamente 
según el campo de datos apellido - recorrer todos los juegos 
de datos desde el primero hasta aquél que coincida y 
comparar el campo de datos apellido con el apellido buscado. 
Apenas se puede apreciar ventaja alguna respecto aun 
fichero secuencial. 


Existen procedimientos de búsqueda, en los que se optimiza 
algo el proceso de búsqueda, como por ejemplo en el árbol 
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binario de búsqueda. Pero siguen llevándose a cabo algunos 
accesos (innecesarios) a disco. Se pensó después en indicar 
un campo de datos del juego de datos como "campo clave", en 
inglés se le llama "key" o simplemente "index". Este campo 
indice ha de residir (es decir, ha de estar siempre) en 
memoria. La mejor elección para ello es el campo que se use 
más frecuentemente como criterio de ordenación o para la 
búsqueda. 


Junto al contenido de este campo de datos se conserva 
también en memoria, naturalmente, el número de record 
correspondiente. De este modo se puede acceder directamente 
en el disco al juego de datos sin tener que leer juegos de 
datos superfluos. 


La ventaja de este procedimiento es clara: por un lado se 
ahorra memoria, al no conservar en memoria todo el juego de 
datos. En lugar de 96x100=9600 bytes necesitamos sólo 


(35 + 1) * 100 = 3600 


bytes. Este resultado surge de 35 bytes para el campo clave 
más un byte para el número de record, multiplicado por los 
100 juegos de datos. 


La segunda ventaja substancial es el enorme ahorro de 
tiempo. El ordenador puede comparar una cadena de caracteres 
mucho más rápidamente que acceder cada vez al disco. 


Esta lista de palabras clave es de hecho reordenada cada vez 
que es completada, borrada o corregida; en caso contrario, 
un juego de datos podria llegar a mo ser ihallado. Al 
finalizar el programa, esta lista de indice es simplemente 
almacenada como fichero secuencial. El fichero relativo, por 
tanto, no ha de ser redispuesto, en procesos de ordenación, 
entre otros. 
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Evidentemente, pueden crearse más ficheros de indice, de 
modo que se disponga en cada caso del procedimiento de 
acceso "óptimo". Pero en la práctica es más que suficiente 
un único campo de indice. En caso de que se desee buscar por 
una vez según otro campo de datos, basta con un poco más de 
tiempo de espera. 


1.7 Los distintos ordenadores Amstrad 


El CPC 446, el CPC 664 y el CPC 6128 son originarios de la 
casa Amstrad y son más o menos compatibles entre si. Los 
programas BASIC que funcionan en el CPC 464, funcionan 
también en los otros dos aparatos Amstrad, el CPC 664 y el 
CPC 6128 pero, lamentablemente, a la inversa no es asi. 


El CPC 664 y el CPC 6128 tienen un BASIC idéntico, la 
versión 1.1. Estos dos ordenadores pueden intercambiarse 
programas BASIC. Pero se le pide mucho cuidado al 
programador en lenguaje de máquina: los tres aparatos 
ofrecen aqui un absoluto caos de RAM y ROM. Por suerte, las 
ditrecciones de la RAM y de la ROM del floppy no se vieron 
afectadas por las modificaciones de las ditintas versiones, 
de modo que todo lo relatado en el presente libro resulta 
válido para los tres aparatos por igual. 


Junto con el CPC 446 y el CPC 664 se suministra el CP/M 2.2. 
Dado que el CPC 6128 es un ordenador de 128 Kbyte, junto con 
éste se suministran tanto el CP/M 2.2 como el CP/M 3.0. 
Hallará ¡una descripción más detallada de ambas versiones de 
CP/M asi como explicaciones de las diferencias y de la 
utilización en el libro de entrenamiento de CP/M para el 
CPC. 


He aqui una pequeña tabla que ha de dar una idea de las 
diferencias entre los tres aparatos Amstrad-CPC: 
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MECO IC INCITA AICC 
version more] 


1.7.1 CPC 664 y CPC 6128 y errores de disco 













Ante la aparición de un error en el CPC 464 -— y ésto lo 
hemos aprendido -— el programa en ejecución se interrumpia 
ineludiblemente, mostrndo en pantalla el mensaje de error. 
Algo muy desagradable y nada cómodo. De esto se dieron 
cuenta incluso la gente de Locomotive Software, que llevaron 
a Cabo, y a smodo de consuelo (apenas es eso), una pequeña 
modificación en el BASIC. 


Ante la aparición de un error en la versión 1.1 de BASIC en 
el manejo de disco, se puede impedir la interrupción del 
programa mediante el conocido comando ON-ERROR-GOTO. La 
variable de error ERR contiene entonces el código de error 
32. Sabe entonces, que se trata de un error de disco. 


Se le dió al programador BASIC, además, la variable de error 
DERR, que debe dar información precisa acerca del error de 
disco. Pero lamentablemente, este número de error 
proporcionado es claramente insuficiente. Además, el texto 
de error sigue apareciendo en pantalla. En caso de que se 
trate de la pregunta 


Retry, Ignore or Cancel”? 
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ha de contestar, antes de poder proseguir. Claro -— un 
pequeño paso adelante, pero muy incómodo aún, pues: ¿qué ha 
de pensar el usuario cuando aparecen en pantalla mensajes 
con los que no deberia toparse”? 


Asi que, y pensando en la compatibilidad: si escribe un 
programa, que a ser posible no se limite a un disfrute 
propio, sino que funcione en tantos aparatos como resulte 
posible, no puede hacer uso en absoluto de la variante 
ON-ERROR-GOTO mi de la variable de error DERR, ya que le 
traeria complicaciones con los CPC 464. Para este tipo de 
usos se ofrecen las ampliaciones de BASIC impresas en el 
capitulo 5.2, que funcionan en los tres aparatos. En un CPC 
664 6 en un CPC 6128 se notificaria un 32 ante un error de 
disco, en el CPC 464 un 18. Con ello se puede ir tirando. Se 
obtiene además el mensaje de forma clara y no aparece en 
pantalla. 


1.7.2 Otras diferencias entre el CPC 664 y el CPC 6128 


Una ampliación racional del BASIC de Amstrad es la 
siguiente, que no representa de hecho una ampliación de los 
comandos de disco en pleno sentido, sino simplemente una 
modificación de los comandos CALL y RSX y sus respectivas 
listas de parámetros. 


Recordará que en el presente libro siempre hemos predicado 
que, por ejemplo para borrar un fichero, ha de disponer el 
nombre de fichero en una variable de cadena, para poder 
transferir luego el puntero a la variable: 
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A$ = "PRUEBA. BAS" 
IERA, 2A$ 


En el Amstrad CPC 664 y en el CPC 6128 puede introducir el 
comando también de este modo: 


IERA, "PRUEBA. BAS” 


o bien 


A$ = "PRUEBA.BAS" 
IERA, A$ 


Como queda dicho, una raciomal ampliación del BASIC de 
Amstrad, ya que el manejo gama mucho en sencillez y 
claridad. Pero aquellos entre ustedes que escriben programas 
que han de funcionar bajo los tres ordenadores, no pueden 
permitirse este lujo. El CPC 464 se interrumpiria con las 
dos últimas variantes. 


Esta abreviación del comando RSX IDEL es naturalmente válida 
también para todos los demás comandos de disco RSX: 


IERA, "nombre de fichero" 

IREN, "nombre de ficheroi", "nombre de fichero2" 
IDIR, "expresión de cadena" 

IDRIVE, "unidad" 


Con lo cual habremos aclarado las diferencias de los tres 
ordenadores CPC, en lo que a la programación de disco se 
refiere. 
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CAPITULO 2: 
Programación del floppy para avanzados 


Z.1 Los vectores del DOS 


Tras aclararle en los capitulos anteriores las 
posibilidades, tanto del AMSDOS como del CP/M, para el uso 
"normal”?, en los capitulos siguientes aprenderá algo sobre 
el modo de trabajo del DOS y la utilización del mismo en 
lenguaje máquima. Por ello nos basamos en la hipótesis de 
que el lector posee unos conocimientos minimos de 
programación en código máquina del Z80. En caso de que no 
disponga usted de estos conocimientos, algunos de los 
conceptos de las páginas siguientes le resultarán 
incomprensibles. Pero no cierre aún el libro. Aunque algunos 
puntos puedan quedar momentáneamente confusos, resta mucha 
información en las páginas siguientes que podrá serle útil 
sin más. 


A grandes rasgos, en la programación de la unidad de disco 
del CPC podemos distinguir tres niveles de programación. El 
nivel superior es elode más sencilla comprensión. En este 
nivel, todas las tareas son llevadas a cabo por parte del 
DOS. De hecho, se trata del equivalente en lenguaje máquina 
a las órdenes BASIC, que ya conoce del capitulo anterior. 


El nivel medio de la programación de la unidad de disco es 
el nivel que seria inimaginable sin un conocimiento exacto 
de la ROM del AMSDOS. En este nivel disponemos de rutinas, 
que van de muy sencillas a realmente complejas, desde la 
simple conexión del motor del floppy hasta la lectura y 
escritura de datos en disco. Describiremos las rutinas 
existentes en el DOS, dado que con ellas es posible realizar 
cosas muy interesantes, imposibles desde BASIC. 


El tercer modo posible de programar el floppy consiste casi 
en programar ”a golpe de calcetin”. Seguro que únicamente 
pocos especialistas se atreverán a hacer sus pinitos en este 
nivel, ya que en él las funciones del controlador de disco 
han de ser programadas directamente. Pero, dado que dichas 
funciones se hallan ya de algún modo en el DOS, esta 
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programación se reducirá a algunos casos especiales. 
Entraremos también en este tipo de programación, y 
explicaremos ampliamente las posibilidades del controlador 
de floppy. 


Pero comencemos por el principio. Los sistemas operativos de 
los tres ordenadores CPC (464, 664 y 6128) mo estan 
originalmente dispuestos para el manejo de un floppy. Como 
único medio externo de almacenamiento conocen el cassette. 
Sólo a partir de la ROM del AMSDOS (o de otra ROM externa de 
floppy) resulta posible el funcionamiento de un +loppy. En 
caso de que la ROM no esté disponible en el momento de la 
conexión del aparato, las órdenes LOAD, SAVE,  OFENIN, 
OPENOUT, CAT y las órdenes de manejo de ficheros se dirigen 
a la unidad de cintas. Pero en caso de que en el momento de 
la ¡inicialización del CPC la ROM AMSDOS esté disponible, la 
cuestión cambia sustancialmente. Casi todas las órdenes que 
anteriormente se referian al cassette, ahora se entienden 
referidas a la unidad de disco. La única excepción la 
constituye la orden SPEED WRITE que, como es sabido, no 
tiene efecto alguno sobre el floppy. 


Para esta flexibilidad resulta esencial el principio de los 
vectores, utilizado por los creadores del CPC. En lugar de 
efectuar directamente la llamada ala acción deseada del 
sistema operativo —léase rutina-, la rutina es dirigida a 
través de una dirección en la RAM, en la que se halla un 
salto a la rutina del sistema correspondiente. El que la 
rutina sea dirigida a través del vector sito en la RAM puede 
parecer a primera vista supérfluo. Pero de hecho, este 
procedimiento posibilita la compatibilidad de versiones 
distintas del sistema operativo. Sólo mediante este rodeo 
resulta posible que programas en lenguaje máquina se 
ejecuten tanto en el 464 como en el 664 úó en el 6128, cuando 


di sponen de sistemas operativos con diferencias, en 
ocasiones, bastante marcadas. Mientras los vectores se 
hallen en las mismas posiciones de la RAM y las 


correspondientes subrutinas sean ¡idénticas en cuanto a su 
función, puede llevarse a cabo prácticamente cualquier 
modificación en el sistema operativo. La compatibilidad 
queda asegurada. 
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Otro punto esencial es que, también como programador, se 
tengan todos los cables en la mano. De hecho, si bien las 
rutinas ROM som inalterables, por hallarse los vectores en 
la RAM, pueden ser modificados sin problemas, de modo que 
"apunten? a rutinas propias. Con ello resulta posible 
modificar toda función que venga referida por medio de 
vectores en caso de que sea necesario. 


Esto es exactamente lo que ocurre cuando el floppy esta 
apagado. En el CPC hay previstos 22 vectores para el servico 
del Cassette. 13 de ellos reciben un parche (*patch”) para 
el funcionamiento del Floppy, es decir se modifican las 
direcciones de las subrutinas a llamar. Mediante estos trece 
vectores son llamadas desde el BASIC todas las funciones del 
floppy. Pero también en código máquina pueden utilizarse 
perfectamente estos vectores. Los nombres corresponden a los 
del CPC-464—Firmware-Manual. 


LBC77 CAS IN OPEN abre un fichero para lectura entrada 

UBC7A CAS IN CLOSE cierra ordenadamente un fichero 
abierto para lectura 

£«BC7D CAS IN ABANDON cierra inmediatamente un fichero 
abierto para lectura 

2BC80 CAS IN CHAR recoge carácter del fichero de en- 
trada 

£BC83 CAS IN DIRECT lee completamente en memoria un 
fichero de entrada 


%BC86 CAS RETURN el último carácter es retornado 
(reescrito) 

BC89 CAS TEST EOF comprueba ¿fin fichero alcanzado”? 

2BC8C CAS OUT OPEN abre un fichero para escritura (sa- 
lida) 


£BC8F CAS OUT CLOSE cierra ordenadamente un fichero 
abierto para escritura 

£BCIZ CAS OUT ABANDON cierra inmediatamente un fichero 
abierto para escritura 

4BCIS CAS OUT CHAR escribe carácter en fichero de sa- 
lida 
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BC98 CAS OUT DIRECT escribe completamente una zona de 
memoria en un fichero 

BCR CAS CATALOG función equivalente a la orden BASIC 
CAT 


Tras haber leido esta tabla deberia olvidar de inmediato los 
nombres utilizados. Y es que nos parece bastante ilógico 
indicar com CAS las rutinas correspondientes en relación con 
el floppy. En lo sucesivo sustituiremos el simbolo CAS por 
DISC. Con ello se rectifica el nombre de la función. 


2.1.1 DISC IN OPEN uBC77 


Antes de leer datos de un fichero, éste ha de ser abierto. 
La apertura de un fichero se lleva a cabo por la rutina DISC 
IN OPEN. Em ello resulta irrelevante si se trata de un 
fichero ASCII o de un programa. Esta rutina ha de ser 
llamada de todos modos en cada caso. 


Naturalmente, para leer el fichero se esperan algunos 
parámetros. El parámetro más importante es el nombre de 
fichero. En todas las rutinas DISC se transfieren parámetros 
a los registros. Pero dado que un nombre de fichero consta, 
com es sabido, de ocho caracteres más tres para la 
extensión, el nombre no puede ser transferido por completo a 
los registros. En lugar de ello se dota al par de registros 
HL. con la dirección en la que se halla en memoria el nombre 
de Hfichero. El  mombre de fichero puede estar en cualquier 
parte de la RAM, y también en la ROM, o sea en este caso en 
los primeros 14 K de la memoria del CPC. 


Otro parámetro, que ha de ser transferido al registro B para 
usar la rutina, es la longitud del nombre de fichero. Esta 
es una propiedad muy agradable del DISC IN OPEN, dado que el 
nombre de fichero no ha de ser llevado por su parte a una 
longitud fija. Asi puede entrar nombres de fichero con, por 
ejemplo, cuatro caracteres de longitud y una extensión de 
dos caracteres. La rutina alargará por si misma el nombre a 
la longitud requerida. Pero piense siempre en incluir los 
caracteres de la extensión. 
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Un tercer parámetro es esperado por la rutina DISC IN OPEN, 
en el par de registros DE. Aqui ha de incluir una dirección 
de un buffer de 2048 bytes de longitud. En este buffer se 
escriben los datos a leer. Aqui tampoco se está sometido a 
ningún tipo de limitación debido a la posición del buffer en 
la memoria. 


Tras transferir los tres parámetros a los registros, podemos 
efectuar la llamada a la subrutina. Efectuemos una llamada 
de este tipo a titulo de ejemplo. Queremos abrir el fichero 
para la lectura bajo el nombre de *TEST.DAT”. La secuencia 
de instrucciones tendria el siguiente aspecto en Assembler: 


100 LD HL, FILNAM ¡Dirección del nombre 
110 LD B,BUFF-FILNAM ¡Longitud del nombre 
120 LD DE, BUFF ¡Dirección del buffer 
130 CALL  DISC-IN-OPEN 

140 RET 

150 FILNAM: DEFM ”test.dat” ¡Nombre del fichero 
150 BUFF: DEFS 20800 ¡Espacio para 2K 


Pero ¿qué es lo que hace exactamente la rutira y cuáles son 
sus resultados? 


En primer lugar se comprueba que el nombre de fichero se 
ajuste a las comocidas reglas formales. Estas incluyen la 
prohibición de algunos caracteres. Si se halla uno de estos 
caracteres, el comando se interrumpe. Por otra parte, el 
número de caracteres del nombre de fichero no puede ser 
mayor que 15. Esta cifra incluye nombre de fichero, el punto 
separador y tres caracteres de extensión. Un ejemplo de 
nombre de fichero de este tipo seria: "OA:FILENAME. DAT" 
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Simultáneamente a la comprobación del nombre de fichero, 
todas las minúsculas son convertidas en mayúsculas. Los 
nombres de fichero que sean menores de lo necesario, son 
completados mediante espacios. 


Tras esta comprobación se revisa en el disco si existe un 
fichero con ese nombre. En caso de que ello no sea asi, 
p.ej. por haber introducido incorrecta o incompletamente el 
nombre de fichero, el AMSDOS envia el mensaje *Filename”? not 
found. Obtendrá el mismo mensaje de error si desea cargar un 
programa que no se halle en el disco introducido. 


Independientemente de si el fichero está o no disponible en 
el disco, en cada caso obtendrá tras la llamada el retorno a 
los registros de algunos parámetros importantes. 


En primer lugar se puede desprender de la lectura del estado 
de los flags carry  lacarreo) y zero (cero) si el DISC IN 
OPEN 11legó a buen término. Para ello se activa el carry flag 
y se desactiva el zero flag en caso de que el OPEN fuera 
fructifero. Si, por contra, están desactivados tanto el 
carry como el zero, es que intentó abrir un segundo fichero 
para lectura. Una tercera posibilidad es la de que esta, 
desactivado el carry tflag y acivado el de zero. Ello 
significaria que el fichero mo habria sido hallado. 


Si el OPEN fue fructifero, mediante el valor del acumulador 
puede determinarse el tipo de fichero. Asi, de tratarse de 
un fichero de programa BASIC, el acumulador obtendria tras 
la rutina OPEN el valor O. Un valor de +16 significa que el 
fichero abierto es un fichero ASCII. Los restantes valores 
posibles les serán dados en DISC OUT OPEN en forma de tabla. 


El par de registros HL contiene tras la apertura del fichero 
la dirección del File Header, la cabecera de fichero. El 
concepto de cabecera de fichero se le habrá presentado en 
escasas ocasiones, por lo que resulta conveniente comentarlo 
brevemente. Hallará una descripción detallada del montaje 
del file header en DISC OUT OPEN. La cabecera contiene una 
cantidad considerable de información relativa al fichero 
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correspondiente. Asi se halla en ella el nombre del fichero, 
el tipo de fichero, su longitud y también la dirección en 
donde fue escrito. Casi todos los ficheros que son 
almacenados en disco, entre ellos por supuesto programas 
BASIC y em lenguaje máquina, son almacenados conjuntamente 
con dicha información, la única excepción la constituyen los 
ficheros ASCII puros, en los que la cabecera de fichero no 
es conjuntamente almacenada, sino generada por el AMSDOS. 


Más información se puede obtener del par de registros DE. 
Estos le señalan la dirección inicial del fichero. Por 
supuesto que esta información sólo tiene sentido cuando el 
fichero consiste en un programa. Cuando el fichero abierto 
es un programa, el valor en DE suele ser %01760. En programas 
en lenguaje máquina DE contiene la dirección a partir de la 
cual fue escrito el programa. 


Como última información, el par de registros BC contiene la 
longitud del fichero. También aqui hemos de resaltar que 
esta información no afecta a los ficheros ASCII puros. Los 
ficheros ASCII pueden ser considerablemente mayores que los 
64 K representables mediante un par de registros. De hecho, 
esta información vuelve a tener pleno sentido sólo para el 
caso de carga de programas. 


2.1.2 DISC IN CLOSE «BC7A 


Tras la llamada a esta rutina, un fichero abierto para 
lectura queda cerrado. Tras ello no se puede volver a leer 
de este fichero. En la práctica se precisa DISC IN CLOSE 
para leer datos de un segundo fichero. Se cierra entonces 
mediante DISC IN CLOSE el primer fichero abierto, antes de 
abrir para la lectura el fichero nuevo con DISC IN OPEN. 


Para quien quiera saberlo, tras la llamada a la rutina se 
puede determinar a partir del flag de carry si fue abierto 
un fichero para lectura. Si dicho flag está activado, indica 
que se abriób un fichero. 
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Esta rutina no precisa de más parámetros, dado que no se 
puede abrir más de un fichero de entrada a la vez. 


2.1.3 DISC IN ABANDON BC7D 


Esta rutina realiza casi la misma tarea que DISC IN CLOSE. 
También tras DISC IN ABANDON queda cerrado un fichero de 
entrada previamente abierto. En la práctica está concebido 
para cerrar el fichero: en caso de error. También es 
reclamada por el interpretador BASIC antes de cada LOAD, 
SAVE y CAT. Ello significa que casi siempre hay ficheros 
abiertos tras estas órdenes. 


2.1.4 DISC IN CHAR BC80 


De hecho, el AMSDOS conoce dos métodos distintos para leer 
datos de un fichero. El primero consiste en la llamada a la 
rutina DISC IN CHAR, que recoge un carácter del fichero. 
Esta rutina tampoco precisa parámetro alguno, dado que sólo 
puede haber un fichero de input abierto. 


El carácter leido del fichero es transferido al acumulador. 
Adicionalmente, se indica mediante los flags de carry y zero 
si la ejecución de la rutina fue fructifera. Si se recogió 
un carácter del fichero, el carry flag estará activado, y 
desactivado el zero flag. ¿En caso de que intente leer un 
carácter en un fichero no abierto, obtendrá como indicación 
de error los estados carry flag y zero flag desactivados. En 
el acumulador se halla, además, el mensaje de error %0e. 
Este simbolo indica que el fichero de entrada no esta 
abierto, mientras se esperaba que lo estuviera. 


También cabe considerar el caso de que llegue usted al final 
del fichero. Como antes, ambos flags estarán desactivados, 
pero del acumulador recibirá usted la respuesta kla, el 
indicativo de END OF FILE. 
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Los posibles mensajes de error le serán presentados al final 
de este capitulo. 

La lectura de datos mediante DISC IN CHAR sólo puede ser 
llevada a cabo de modo secuencial. Asi, si ha leido los 100 
primeros caracteres pero desea volver a acceder al décimo, 
ha de cerrar el fichero y abrirlo de nuevo. 


2.1.5 DISC IN DIRECT 2¿BC83 


Como ya se mencionób, el AMSDOS ofrece dos posibilidades para 
la lectura de ficheros. La primera consistente en el uso de 
la rutina DISC IN CHAR ya la vió usted. DISC IN DIRECT le 
ofrece la segunda forma de acceso a los datos de un fichero. 
En contraposición a DISC IN CHAR, com la segunda puede ser 
leido y almacenado en memoria el fichero completo. Por 
descontado que la principal aplicación de ésta rutina es la 
carga de zonas de memoria previamente almacenadas. A través 
de esta rutina son cargados los programas BASIC y en 
lenguaje máquina. 


Contrariamente al caso de DISC IN CHAR, DISC IN DIRECT ha de 
estar dotado de un parámetro. Consiste en la dirección de 
carga del bloque de datos, que ha de transferir usted al par 
de registro HL. 

A 


100 LD HL, BUFFER ¿Dirección inicial datos 
110 CALL — DISC-IN-DIRECT 

120 RET 

130 BUFFER: EQU $ ¿lectura dirigida a aqui 


Tras la llamada de DISC IN DIRECT, los flags dan 
indicaciones, en el modo acostumbrado, acerca del éxito o 
fracaso de la rutina. Como hasta ahora, carry activado/zero 
desactivado significa que los datos fueron correctamente 
leidos. Los mensajes de error posibles corresponden a los de 
DISC IN CHAR. 
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El par de registros HL contienen además la dirección de 
cabecera del fichero llamada dirección ENTRY (de entrada). 
Hallará el significado de esta dirección en la descripción 
de DISC OUT OPEN 


Junto a ambas posibilidades de acceso a los datos, cabe 
destacar otra caracteristica. De momento ya tiene uno las 
herramientas para la utilización de las rutinas. Asi que se 
puede leer un programa mediante DISC IN CHAR de otro modo 
que en BASIC. Pero si se leyó un carácter del fichero de 
input mediante DISC IN CHAR, el resto no puede ya ser 
recogido en la memoria mediante la rutina DIRECT. A la 
inversa, no resulta posible seguir leyendo con la rutina 
CHAR (un fichero leido antes mediante la rutina DIRECT, a 
menos que se haya alcanzado el final del fichero con DIRECT. 
Pero tampoco deberia leerse con DISC IN DIRECT por segunda 
vez un fichero; podrian perderse datos en memoria. 


2.1.6 DISC RETURN UBC86 


La aseveración de que con DISC IN CHAR un fichero sólo puede 
ser elaborado secuencialmente es fundamentalmente verdadera. 
Sin embargo, con DISC IN CHAR existe la posibilidad de leer 
caracteres más de uma vez. Con DISC RETURN el áltimo 
carácter leido es reescrito en el buffer y está disponible 
de nuevo para la lectura. Una vez leidos los 20 primeros 
caracteres del fichero, tras la vigésima llamada a DISC 
RETURN en el siguiente DISC IN CHAR se vuelve a leer el 
primer carácter. En cualquier caso, esta posibilidad tiene 
sus limitaciones. Y es que, originalmente, fue concebida 
para un único carácter. p 


Un ejemplo aclarará dónde se hallan los limites de esta 
rutina. Imaginemos un fichero con 4000 caracteres. Si hemos 
leido 2048 caracteres con DISC IN CHAR, el buffer instaurado 
en el DISC IN OPEN estará *vacio”, hemos leido todos los 
caracteres. Si ahora hemos leido el caracter 2049 y llamamos 
repetidamente a la rutina DISC IN RETURN, deberian volver a 
cargarse de nuevo los 2048 primeros bytes de datos. Pero 
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esto no ocurre asi. En lugar de ello, el indicador abandona 
la zona de buffer y se dirige al siguiente carácter a leer, 
de modo que los caracteres leidos después no tienen nada que 
ver con el contenido del fichero. 


De todo ello se desprende que DISC RETURN sólo puede ser 
usado con muchas limitaciones. La principal utilidad de esta 
rutina consiste en la comprobación especifica de un carácter 
concreto. Asi se utiliza para comprobar el criterio EOF tía. 


2.1.7 DISC TEST _EOF BC89 


Esta rutina le permite determinar si ha alcanzado el final 
del fichero. Para ello se lee el siguiente carácter mediante 
DISC IN CHAR y comparado con el valor kia, 26 decimal. En 
caso de que el valor del carácter leido sea distinto de 76, 
el carácter es reescrito en el buffer mediante DISC RETURN y 
se retorna de la rutina con los flags de carry activado y 
zero desactivado. En caso de que fuera hallado el valor tia, 
ambos flags están desactivados. 


Esta rutina puede utilizarse finalmente para la lectura 
carácter a carácter de un fichero, ya que dicha rutina en si 
utiliza la de DISC IN CHAR. La utilización de esta rutina no 
está permitida con DISC IN DIRECT y conduce a mensajes de 
error. 
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2.1.8 DISC OUT_OPEN 2BC8C 


Todas las rutinas descritas hasta ahora parten de la base de 
que en el disco hay datos. Las siguientes descripciones de 
rutinas le mostrarán cómo puede almacenar datos y programas 
en disco desde lenguaje máquina. Al igual que en la lectura 
de datos, antes de la escritura, el fichero deseado ha de 
ser abierto. Ello se  consigue,mediante la llamada a la 
rutina DISC ouT OPEN. Como en la lectura, han de 
transferirse distintos parámetros a la rutina. 


Tenemos en primer lugar el nombre de fichero bajo el que han 
de poderse volver a shallar los datos en el disco. Como es 
sabido, la dirección del nombre deseado es transferida al 
par de registros HL. También es preciso transferir, al 
regitro B y al par DE —-como en DISC IN OPEN- la longitud del 
nombre y la dirección de un buffer de 2048 bytes. 


100 LD HL, FILANAME ¡Dirección nombre 
110 LD B,BUFFER—-FILENAME ;Longitud nombre 
120 LD DE, BUFFER ¡Buffer de datos 
130 cAaLt DISC-OUT—-OPEN 

140 RET 

150 FILENAME: DEFM *"test.dat” ¡Nombre de fichero 
160 BUFFER: DEFS 0800 ¡Espacio 2048 car. 


Seguidamente se comprueba la validez del nombre de fichero 
y, eventualmente, se completa hasta el número requerido de 
caracteres. Tras ello se sobreescribe la extensión con tres 
caracteres de dólar y el nombre es buscado en el disco. De 
hecho, bajo este nombre se dispone un fichero temporal en el 
que se inscribe posteriormente la extensión. Luego se 
dispone una cabecera de fichero, cuya dirección está a 
disposición del usuario en el par de registros HL tras 
finalizar la rutina. Pero todo ello en el supuesto de que no 
aparezcan errores en el DISC OUT OPEN. De nuevo puede 
comprobarlo mediante el estado del flag de carry. Si al 
final de esta rutina el carry está activado, todo va bien, 
el fichero está abierto para escritura. Pero si, por contra, 
está desactivado, es que ha aparecido algún tipo de error. 
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Un posible error es el de la entrada erronea del nombre de 
fichero. También se notifican como errores los de escritura 
al comprobar el directorio. En tal caso, el contenido de HL 
no está determinado. 


Pero ocupémonos del caso en el que el fichero de salida fue 
correctamente abierto. De hecho ahora obtendremos de nuevo 
la dirección de la cabecera de +fichero en el par ade 
registros HL. Observemos detenidamente este fichero. 


En principio, la cabecera de fichero no es más que una zona 
de memoria de 64 bytes. En estos 64 bytes se almacenan los 
datos más ¡importantes sobre el fichero. El significado de 
los distintos bytes de la cabecera es idéntico en lectura y 
escritura. La estructura de la cabecera es análoga a la 
construcción de la misma en la utilización del cassette. 


Los primeros 16 bytes contienen el nombre de fichero. En el 
caso de las cintas, éste podia ser de hasta 16 caracteres, 
pero en el servicio de discos la cantidad permitida es de 
solo 8 caracteres. Si le sumamos la extensión, de tres como 
maximo, seguimos teniendo apenas 11 caracteres. 
Adicionalmente se incorpora como primer carácter el número 
de usuario. Todo ello suma 12 bytes y los cuatro últimos 
caracteres del nombre de fichero en la cabecera del fichero 
son siempre O. 


Los bytes 16 y 17 no tienen ningún significado en el caso 
del floppy. En la utilización del cassette contienen el 
número actual de bloque y un indicativo de si se trata del 
último bloque del fichero. Debido a la construcción 
radicalmente distinta, estos datos no son idóneos en el 
AMSDOS. 


El siguiente byte, el 18, que es importante incluso en 
AMSDOS. Contiene el tipo de fichero del fichero. Esta 
codificado en forma binaria, es decir, cada bit en este byte 
tiene un significado concreto. 
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El bit 0 indica si el fichero está protegido. En programas 
que fueron almacenados mediante SAVE "filename",F el bit O 
en el tipo de fichero está activado. 


Los bits 1,2 y 3 determinan el tipo de fichero en sl. Si 
están desactivados los tres, el fichero es binario, es decir 
una zoma de memoria del CPC. El tipo de los ficheros ASCII 
se genera activando los bits 1 y 2. 


Los bits 4 ad7 suelen estar desactivados e indican, según 
reza el manual del CPC, el número de versión -—pero no nos 
pregunte lo que eso significa-. Tan sólo los ficheros ASCII 
tienen el número de versión 1, cuarto bit activado. 


Tras el DISC OUT OPEN fructifero, el tipo de fichero está 
puesto en Hfichero ASCII. Es tarea suya el poner aqui el 
valor que precisa. 


Los bytes 19 y 20 son de nuevo un residuo del servicio de 
cassettes. Contienen el número de bytes en el bloque de 
datos actual, y carecen de sentido en el servicio de discos. 


De mayor importancia son los dos bytes siguientes, 21 y 22. 
Contienen la dirección a partir de la que fueron escritos 
los datos. Por supuesto que este dato no consta aún en el 
DISC OUT OPEN. Sólo después de la escritura de un fichero 
mediante DISC 0UT DIRECT (ver abajo) le es proporcionado 
este campo a la cabecera del fichero. En ficheros ASCII sólo 
hallará el valor 0, dado que en este caso de datos carece de 
significado. 


El byte 23 de la cabecera será siempre £%FF. En el servicio 
de cassette este valor indica que el bloque de datos leido 
ahora es el primero del fichero. También carece de sentido 
en el servicio de discos. 
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Los bytes 24 y 25 contienen la longitud del fichero. Este 
valor €es transferido al par de registros DE tras el DISC IN 
OPEN. En el caso de ficheros ASCII este valor es siempre O 
dado que su longitud sólo está limitada por la capacidad de 
los discos. 


Los dos últimos bytes utilizados, 26 y 27, contienen la 
dirección de ¡inicio en programas en lenguaje máquina. Si 
almacena una zona de memoria mediante el comando 


SAVE "memoria.bin",b,1000,2000,1200 


el valor 1200 será puesto en forma hexadecimal en estas dos 
posiciones de memoria. Pero si trabaja con las 
correspondientes rutinas en lenguaje máquina, ha de poner 
este valor usted mismo. 


Todos los bytes restantes de la cabecera de fichero son 
puestos a cero por el AMSDOS tras el DISC OUT OPEN, y no 
vuelven a ser usados. Quedan entonces a su disposición. 


2.1.9 DISC QOUT_CLOSE BC8F 


También un fichero de (salida) output ha de ser cerrado. En 
realidad, la necesidad de cerrar un fichero es aún mayor en 
la escritura que en la lectura. Ello radica en el hecho de 
que cada carácter pasa en primer lugar por el buffer de 2048 
bytes creado en DISC OUT OPEN, y no llega de modo directo al 
disco. En caso de un desbordamiento de este buffer, o sea, 
si el número de bytes a almacenar pasa de 2048, dicho buffer 
es escrito en el «disco. Asi que al cerrar un fichero pueden 
hallarse en el buffer un máximo de 2047 caracteres. Con la 
llamada a la rutina CLOSE se escribe igualmente en disco el 
resto existente de este buffer. Y es ahora cuando el fichero 
se halla completo en el disco. Asi que en el caso más 
desfavorable se pierden 2047 bytes si cambia el disco con el 
fichero de output abierto. ; 


Después se cambia el nombre de fichero provisional puesto 
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por DISC OUT OFEN (con la extensión .$$$) por el nombre de 
fichero original. Caso de que exista bajo este nombre otro 
fichero anterior, este último es retitulado, obteniendo la 
extensión.BAK. Si observa alguna vez en el directorio un 
fichero con esta extensión (.$$$), lo más probable es que se 
trate de un fichero no debidamente cerrado. 


La rutina CLOSE no precisa de parámetros especiales de 
transferencia dado que, también en la lectura, puede haber 
únicamente un fichero abierto al tiempo. Al finalizar esta 
rutina puede volver a determinar, de la mano de los flags de 
carry y zero si la ejecución de CLOSE fue regular. En tal 
caso el carry vuelve a estar activado y elozero flag 
desactivado. 


2.1.10 DISC OUT ARBANDON LBC92 


Si aparece un grave error en la escritura de un fichero, 
éste puede ser cerrado mediante esta rutina. Un ejemplo de 
un error de este tipo lo constituirlia quizá el mensaje de 
que el disco está lleno. En tal caso deberia efectuar una 
llamada a DISC OUT ABANDON, ya que los bloques dispuestos 
hasta ahora en el disco volverian a ser liberados. En el 
directorio tampoco aparece el nombre del fichero. En un caso 
asi deberian escribirse por supuesto todos los datos de 
nuevo en un disco con más espacio disponible. 


2.1.11 DISC OUT_CHAR xBC95 


Igual que en la escritura, el AMSDOS dispone de dos caminos 
distintos para escribir datos en el disco. El primero 
mediante DISC OUT :CHAR. Con esta rutina se escribe en el 
OPENCOUT-buffer el carácter sito en el acumulador. En caso de 
desbordamiento, los caracteres escritos en el buffer hasta 
ese momento son salvados en disco, creando con ello nuevo 
espacio en el buffer. 
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Casi cualquier carácter deseado puede ser escrito en un 
fichero mediante esta rutina. Pero si el fichero es 
posteriormente leido mediante DISC IN CHAR, ha de ser 
especialmente precavido en la utilización del carácter tla, 
26 decimal. En caso contrario podria ser tomado en la 
lectura como criterio de EOF, aunque no sea el fin del 
fichero. 


Aparte de los caracteres a escribir en el acumulador no ha 
de transferirse ningún parámetro a esta rutina. Como en las 
otras rutinas, tras DISC OUT CHAR el carry está activado si 
el carácter fue correctamente escrito. Si por el contrario 
los flags de carry y zero están desactivados, es que olvidó 
abrir como es preceptivo el fichero de salida necesario. 


2.1.12 DISC OUT DIRECT BC98 


Esta rutina representa la segunda posibilidad del AMSDOS de 
almacenar datos en un fichero en disco. En contraposición a 
la escritura de caracteres individuales, esta rutina se 
emplea para el almacenamiento de zonas de memoria completas 
del CPC. Para ello han de transferirse a DISC OUT DIRECT 
distintos parámetros. 


En primer lugar ha de dotarse al par de registros HL con la 
dirección de ¡inicio de la zona de memoria a escribir. A 
partir de esta dirección serán escritos los datos en el 
fichero. 


El siguiente valor importante es la longitud deseada del 
fichero. Para ello cargue el par de registros DE con el 
número de bytes a almacenar. Se sobreentiende que la 
longitud máxima de un fichero de este tipo es de 64 K 
correspondientes a 65536 bytes. No son posibles ficheros 
mayores. Esta magnitud de fichero ya basta para duplicar la 
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memoria RAM completa del CPC, lo que no suele tener pleno 
sentido ya que ésta no podrá volver a ser totalmente 
cargada. 


Si lo desea puede transferir la dirección de entrada (ENTRY) 
al par de registros BC (p.ej, la dirección de inicio de 
programas en lenguaje máquina). El contenido de este par de 
registros es escrito en los bytes 26 y 27 de la cabecera de 
fichero. 


Puede transferir un último parámetro al acumulador; el tipo 
de fichero. Es igualmente escrito en la cabecera en el byte 
18. 

Al igual que en la lectura de ficheros, en la escritura es 
importante no variar el método una vez utilizado. O sea que 
en un fichero no se puede ir saltando de un método a otro. 
Si escribió un carácter com DISC OUT CHAR, el intentar 
utilizar finalmente DISC OUT DIRECT conduce a un mensaje de 
error. 


Lamentablemente, tampoco es posible repetir en un fichero el 
uso de DISC OUT DIRECT. Aun cuando en tal caso el mensaje 
del AMSDOS seria un OK, posteriormente en el DISC OUT CLOSE 
aparecerla el mensaje ”File mot Open as Expexted”. La 
escritura del fichero seria, además, irregular. Asi que tras 
el primer fin de la rutina ha de ser cerrado el fichero de 
salida. Cada zona de memoria posterior del CPC ha de ser 
escrita en disco en un nuevo fichero. 


2.1.13 DISC CATALOG BC98 


Considerando sólo esta racional posibilidad, el diskette ya 
aventaja a la utilización de cassettes. En un breve plazo de 
tiempo obtiene una visión general de los ficheros en la 
unidad de disco actual. Además se muestra el número de 
bloques libres en el disco. 
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Antes de la llamada a DISC CATALOG ha de dar al par de 
registros DE la dirección de inicio de una zona de memoria 


intermedia —buffer- de 2048 bytes. Si bien este buffer no 
resultaria estrictamente necesario y fue incluido sobre todo 
por motivos de compatibilidad en la utilización de 


cassettes, los programadores del AMSDOS han incluido en este 
buffer un detalle de agradecer. Consiste en que, a la 
llamada de DISC CATALOG se leen del disco los nombres del 
fichero y se disponen en el buffer junto con la información 
sobre el número de bloques ocupados. Es más, los nombres de 
fichero mo se escriben en el buffer en la misma secuencia, 
sino que se ordenan alfabéticamente. Este es el motivo por 
el que obtiene un directorio tan ordenadito con la orden 
CAT. Por contra, con el comando DIR obtiene los ficheros en 
el mismo orden en el que de hecho se hallan en el disco, es 
decir, desordenados. 


2.1.14  Remendando vectores 


Para comenzar este capitulo aclaramos exhaustivamente las 
ventajas de los vectores sitos en la RAM. Pero si se le 
ocurre la idea de utilizar una ventaja esencial cual es la 
facilidad de variación de las rutinas correspondientes, 
deberia encaminarse a la tarea con algo de cuidado. Y es que 
el asunto en si es un arma de dos filos. 

Un vistazo al listado de la ROM del capitulo 3 muestra dónde 
se halla la dificultad. Los 13 vectores muestran tras la 
inicialización del AMSDOS el mismo contenido. En todos los 
casos, los 3 bytes de cada vector son como sigue: 


RST 18 
DEFW  A88B 


Un sencillo bucle con PEEK confirma la aseveración. Con el 
RST 18, también llamado RST 3, cabe la posibilidad de 
acceder a cualquier rutina en cualquier zona de la ROM o de 
la RAM como subprograma, es decir, casi como CALL. Pero para 
ello no basta con la dirección de 2 bytes tras la orden de 
restart, dado que mediante 2 bytes se puede representar tan 
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sólo una dirección, pero mo un valor de opción de ROM 
adicional. La solución al problema es la siguiente: la 
dirección tras eli RST apunta la dirección de memoria en la 
que se halla la dirección de 3 bytes definitiva. 


En nuestro caso hemos de revisar la dirección tA88B para 
obtener la dirección y el byte de opción de la auténtica 
rutina DOS. En la dirección %A88B se hallan los valores $30, 
CD y *K07. Ello significa en una lectura normal” la 
dirección £CD30 en la ROM de expansión 7. 


Si se mira ahora la dirección indicada en la ROM del AMSDOS, 
se hallará una rutina algo peculiar que proporciona la 
dirección del vector reclamado mediante la manipulación del 
stack (de hecho, en el stack se mhalla la dirección del 
vector +3). A esta dirección se le suma un valor de £10D2 y 
el resultado es puesto en la parte superior del stack. 
Finalmente un RETURN conduce a la rutina requerida en si. 
¿Due pasa? 


El motivo de tomar este camino indirecto para el salto de 
las distintas rutinas está claro si se considera que el RST 
3 funciona como un CALL. Pero en un CALL se sitúa en la pila 
una dirección de Ssalto de retorno, que apunta detrás del 
vector llamado, en la siguiente anotación en el bloque de 
saltos. Pero nuestro programa ha de ser llevado al punto que 
sigue a la llamada al vector. Por ello resulta 
imprescindible que la dirección de salto de retorno del RST 
desaparezca del stack. 


Precisamente de esta tarea se encarga la rutina en £CD30. 
Pero la dirección de salto de retorno a olvidar no es 
simplemente eliminada, sino que se suma al ya mencionado 
valor *t10D2 dando la auténtica dirección de la rutina a 
llamar. Com ello quedan aclaradas las dificultades al 
remendar -del inglés patch- las rutinas. Si un RST llega a 
la dirección *%CD30 desde otra dirección como una anotación 
de bloque de saltos, el resultado de la suma es un valor 
casi irracional y el bloqueo del sistema o un reset son las 
consecuencias más probables. 
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Pero basta de explicaciones; veamos cómo realizar, a pesar 
de todo, estos patchs de rutinas. 


El ejemplo elegido es bastante sencillo. El único objetivo 
del patch es mostrar cómo trabaja uno de estos patchs. Para 
este ejemplo desviaremos el vector CAT. 


100  INIT: LD HL,«BC9C ¡dirección del vector CAT 

110 LD TEMP, HL ¡almacenar 

120 LD HL,PATCH ¿nueva dirección del RST 

130 LD LBC9C,HL ¡realizar patch 

140 RET ¿todo bien 

150 PATCH: EQU $ ¡posible lugar para su rutina 
160 LD HL, TEMP ¿dirección original 

170 LD LBC9C,HL — ¿volver a anotar 

180 CALL  KBC9B ¿vect. CAT con direc. correcta 
190 PATCH1: EQU $ ¿otro lugar para su rutina 
200 CALL — INIT jrefijar para próxima llamada 
210 RET jya se acabb 


Como ve, de hecho mo hacemos nada aparte de desviar el 
vector. En cualquier caso, de este modo tiene usted la 
posibilidad de acceder, tanto antes como después de la 
rutina. 


Un ejemplo práctico del método utilizado es la reparación de 
MERGE y CHAIN MERGE. Quizá se decida a desensamblar estos 
cortos programas para averiguar cómo está programado el 
acceso a DISC IN CHAR. 


2.2 Las ampliaciones de órdenes del AMSDOS 


Mediante las rutinas descritas en el capitulo anterior no se 
han agotado, ni de lejos, las posibilidac.s del programador. 
También las úrdenes de la ampliación, indicada en BASIC 
mediante la barra vertical 1  ”SHIFT 39”, pueden ser 
utilizadas sim dificultad en lenguaje máquina. Ahora nos 
ocuparemos concretamente de cómo ocurre esto. 
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Ya conoce los comandos posibles de capitulos anteriores y 
también de su manual del floppy. He aqui de nuevo una visión 
de los comandos disponibles: 


CPmM A 
DISC B 
DISC. IN DRIVE 
DISC.OUT USER 
TAPE DIR 
TAPE. IN ERA 
TAPE. OUT REN 


Al contrario de lo que ocurria en las rutimas DISK, en los 
comandos de las ampliaciones de órdenes no hay vectores, de 
modo que no se puede saltar directamente a ellas. Para las 
ampliaciones de órdenes se requieren medidas especiales para 
”poner en marcha” la acción deseada. Asi que confiemos en el 
mecanismo. 


2.2.1 Programación en ensamblador de las ampliaciones 


Si los comandos de cierta ampliación de órdenes han de ser 
ejecutados, en primer lugar ha de conocerse la dirección de 
la rutina. Dado'que estas rutinas pueden hallarse tanto en 
la RAM en forma de ampliación RSX como en ROMs en los 16K 
superiores del CPC, la eventual dirección de ROM ha de ser 
proporcionada. Esto lo realiza una rutina especial del 
Kernal del CPC, cuando le damos el nombre de la ampliación 
de comandos deseada. Para ello ha de ponerse la dirección 
del nombre en el par de registros HL. Ha de dar este nombre 
en mayúsculas. El último carácter del nombre se indica 
activando el séptimo bit de dicho carácter. Exactamente del 
mismo modo están registrados en ROM y RAM todos los nombres 
de las ampliaciones de órdenes. 


Si tenemos el nombre en RAM en la forma deseada y HL esta 
dotado por la dirección de dicho nombre, basta la llamada a 
la rutina KL FIND COMMAND. 
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KL  FIND COMMAND es una rutina del kernal del CPC y tiene un 
vector en RAM en la dirección BCD4. Tras ejecutar esta 
rutina, nos son devueltos los siguientes parámetros: 


Si el carry flag está desactivado, es que no fue hallado el 
comando correspondiente. 0 bien no entró correctamente el 
nombre de la ampliación de órdenes, o bien la ampliación no 
ha sido aún inicializada. 


La última situación puede aparecer con el floppy si enciende 
en primer lugar el CPC y despues el floppy. Pero pulsando 
simultáneamente las tres teclas CTRL, SHIFT y ESC se lleva a 
cabo un reset en el que se ”le pega un timbrazo” a la 
ampliación de órdenes, que está a nuestra disposición a 
partir de entonces. 


Si, por el contrario, el carry flag se halla activado tras 
la rutina KL FIND COMMAND, obtendrá la dirección de la 
rutina deseada en el par de registros HL. La dirección de 
ROM precisa se halla en el registro C. 


El proporcionarla precisamente a este registro fue una 
elección meditada de los programadores del sistema operativo 
del CPC, dado que existe una rutina del kernal llamada KL 
FAR PCHL, que puede llamar a Cualquier dirección de 
cualquier ROM. posible o de la RAM como subprograma. La 
dirección de la rutina ha de ir para ello a HL, la dirección 
ROM precisa en el registro C. Justamente ahi se hallan tras 
KL  FIND COMMAND los valores que necesitamos, de modo que ya 
nada se interpone a la llamada. 


Observemos una vez este mecanismo con ayuda del comando 
IDIR, que, como es sabido, no precisa de más parámetros, 
antes de meternos con comandos que requieren parámetros en 
forma de variables numéricas o de cadena. 


100 LD HL , COMMAND ¡Dirección del comando 
110 CALL  KL-FIND-COMMAND ¡Dirección *BCD4 
120 RET NC ¡Comando no hallado 


148 El_gran _libro del floppy para el CPC 


130 XOR A ¿Ningún parámetro 

140 CALL  —KL-FAR-PCHL ¡Dirección %001B 

150 RET 

160 COMMAND: DEFM  ”DI”,”?*R”+%80 ¿Nombre del comando 
Las dos rutinas del kermal utilizadas son realmente 


fantásticas en sus prestaciones. Ya nadie tendrá que sufrir 
con largas tablas de direcciones de todas las rutinas 
precisas. Es totalmente suficiente conocer el nombre de la 
rutina. 


La programación será un poco más laboriosa si se han de 
transferir parámetros a la ampliación de Ordenes. Pongamos 
por caso que hemos de transferir valores numéricos enteros. 
Este es el ocaso de la orden IUSER. Son válidos los números 
USER de 0asi5. Veamos un programa ejemplo para la llamada 
del comando USER, antes de comentar las particularidades de 
la transferencia de parámetros: 


100 LD HL, COMMAND ¡Dirección del comando 
110 CALL  KL-FIND-COMMAND ;Dirección *BCD4 

120 RET NC ¿Comando no hallado 

130 LD A,l ¿Transferir un parámetro 
140 LD IX, NUMBER ¿Número de User buscado 
150 CALL — KL-FAR-PCHL ¡Dirección es 001KR 

160 RET 

170 COMMAND: —DEFM ”?USE?”?,”R”+%80 ¿Nombre del comando 


180 NUMBER: DEFW 0004 


En primer lugar ve usted que la rutina IUSER proporciona al 
acumulador el número de parámetros transferidos. Cualquier 
valor distinto de uno lleva a la salida de ”Bad command”. 


El registro IX muestra el número de usuario deseado, el 
cuatro en nuestro ejemplo. Dado que sólo pueden ser 
transferidas palabras de 16 bits, en la linea 180 el valor 


Programación con diskettes para avanzados 149 


de NUMBER ha de ser definido con la instrucción DEFW como 
valor de dos bytes (16 bits). 


A la vista está que la programación no ha mejorado 
ostensiblemente. Algo más de trabajo conlleva el transferir 
cadenas a la ampliación de órdenes. Tal es el caso en las 
órdenes IERA, IREN y IDRIVE. 


Como ya sabe, las cadenas no pueden ser transferidas 
directamente a órdenes de la ampliación de órdenes. En lugar 
de ello se transfiere el puntero de variable, que usted 
obtiene con la función *arroba=9”?. El puntero de variable es 
en si un indicador del llamado descriptor de cadena. La 
arquitectura del descriptor de cadena y la gestión de 
cadenas en BASIC ya deberia resultarle conocida. Por motivos 
de espacio no podemos extendernos en mayores explicaciones. 


Consideremos primero el caso sencillo, con una sola cadena 
por parámetro, el comando IERA. En nuestro ejemplo queremos 
borrar un fichero de nombre ”?DIRECCIO.DAT?. 


100 LD HL, COMMAND ¡Dirección del comando 
110 CALL  KL-—FIND-COMMAND ¡Dirección *BCD4 

120 RET NC ¿Comando no hallado 

130 LD A,1 ¿Transferir un parámetro 
140 LD IX, VARPTR ¡Descriptor de variable 
150 CALL  KL-FAR-PCHL ¡Dirección es %001B 

1650 RET 

170 COMMAND: DEFM ”ER”,”A” +80 ¿Nombre del comando 

180 VARPTR: DEFW DESCRIP ¿Dirección descriptor 
190 DESCRIP: DEFB 12 ¿Longitud de la variable 
200 DEFW  FILNAM ¡Dirección del nombre 


210 FILNAM: DEFM ”DIRECCIO.DAT” ¡Fichero a borrar 


Algo más útil todavia resulta esta posibilidad si se 
precisan dos cadenas, como en el caso del comando IREN. El 
siguiente ejemplo le muestra cómo puede cambiar el nombre 
del fichero ”*DIRECCIO.DAT” por el de ”DIRECCIO.ALT”. 
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100 LD HL. , COMMAND ¿Dirección del comando 

110 CALL  KL-—FIND-COMMAND ¿Dirección £BCD4 

120 RET NC ¿Comando no hallado 

130 LD A,2 ¿Trans. 2 n.fichero a 

REN 

140 LD IX, VARPTR ¿Descriptor de variable 

150 CALL  —KL-FAR-PCHL ¿Dirección es £001B 

160 RET 

170 COMMAND: DEFM ”RE”,”N”+e£80 ¿Nombre del comando 

180 VARPTR: DEFW  DESCOLD ¿¡Dir. descriptor n.ante- 
rior 

190 DEFW  DESCNEW ¿¡Dir. descriptor n.nuevo 

200 DESCOLD: DEFB 12 ¿Longitud de la variable 

210 DEFW  OLDNAME ¿Dirección anterior nom- 
bre 

220 OLDNAME: DEFM ”DIRECCIO.DAT” ¡Antiguo nombre fichero 

230 DESCNEW:  DEFB 12 ¿Longitud de la variable 

240 DEFW  NEWNAME ¿Dirección nuevo nombre 

250 NEWNAME:  DEFM ”DIRECCIO.ALT” ¿Nuevo nombre fichero 

Aunque nosotros hemos dispuesto en el ejemplo todos los 

datos uno al lado del otro, en la práctica pueden hallarse 

en cualquier parte de la memoria del CPC. Tampoco el orden 

tiene ¡importancia alguna. Lo importante es que los punteros 

estén sobre los descriptores en el orden adecuado e, 

ineludiblemente, uno detrás del otro en la memoria. 


Con los conocimientos de este capitulo ya debería resultarle 
posible utilizar con lenguaje máquina todas las 
posibilidades alcanzables desde el BASIC. Esto es, desde 
luego, algo a considerar, pero es sólo una parte de lo 
posible. La meta de la programación en lenguaje máquina es 
precisamente el ampliar las fronteras de las posibilidades 
existentes en BASIC. Pero aún no hemos llegado a ello. 


las 
lo 


En qué consisten 
programador, es 
capitulo. 


posibilidades 
que averiguaremos 


que se le ofrecen al 
en el siguiente 
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2.2.2 Las órdenes *ocultas” de la ampliación 


Al elaborar el listado de la ROM no hallamos en el manual ni 
un silaba sobre las mencionadas posibilidades. Junto a las 
14 conocidas órdenes de la ampliación de órdenes, existen 
otras 9 órdenes, en parte muy interesantes, que pueden ser 
activadas del mismo modo que las órdenes hasta ahora 
descritas. En cualquier. caso, estas órdenes no pueden ser 
activadas desde BASIC como se mhacia con, por ejemplo, el 
comando IDIR. 


Todos estos comandos tienen un nombre de una longitud de un 
carácter. Dichos nombres son x%x01, X02 ... +09. Dado que en 
todos los nombres de la ampliación de órdenes ha de ser 
activado el séptimo bit del último carácter, los nombres *de 
facto” son *%81, %82 ... %89. Estos nombres no se pueden 
introducir en programas BASIC. Por ello, la utilización de 
estas órdenes queda reservada al programador de lenguaje 
máquina. Em algunas órdenes la utilización en BASIC no 
tendria demasiado sentido, como podrá deducir de la 
descripción de las distintas órdenes. 


2.2.2.1 La orden +81 Message ON/OFF 


Esta orden permite desconectar mensajes de errores que 
pueden aparecer relacionados con las órdenes %x82 hasta 289, 
que aún hemos de ver. Son, en particular, los mensajes de 
error del controlador de disco que reclaman del usuario la 
entrada de C, 1 Oo bien R por Chancel, Ignore y Retry. Para 
conseguir esta desconexión de los mensajes de error, el 
programador ha de transferir al acumulador un valor distinto 
de cero'antes de la llamada. 
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100 LD HL, COMMAND ¿Dirección del comando 

110 CALL  KL—FIND-COMMAND ¿Vector $BCD4 

120 RET NC ¿Comando no hallado 

130 LD A, UFF ¿Para desconexión de men- 
sajes 

140 CALL  —KL-FAR-PCHL ¡Dirección es £001B 

150 RET 

160 COMMAND: DEFB *t81 ¿Nombre del comando 


Toda la acción de este programa consiste en transferir el 
valor en el acumulador a la posición de memoria £BE78. Esto 
seria más rápido escribiendo explicitamente dicha posición 
de memoria. Pero si por algún motivo, en versiones futuras 
del AMSDOS fuese variada la dirección de esta posición de 
memoria, la rutina anteriormente mostrada seria con toda 
seguridad ajustada en el AMSDOS de modo que se proporcionase 
la dirección de RAM modificada. Asi que, por motivos de 
compatibilidad con estas posibles versiones posteriores, 
deberia utilizar la rutina anterior cuando no programe para 
si mismo. 


Esta rutina no es incorporable en el BASIC 1.0 ya que 
depende usted de mensajes de error en pantalla. El hecho es 
que el número de error transferido al acumulador no está 
disponible en el 'BASIC 1.0. En lugar de ello, el programa 
seria ¡interrumpido y en pantalla apareceria el lacónico 
mensaje ”BREAK”. En el BASIC 1.1 del CPC 664 y CPC 6128, sin 
embargo, puede incorporar esta rutina y preguntar por 
errores mediante ON ERROR GOTO y la variable del sistema 
reservada DERR. Pero para programas BASIC resulta más 
indicado para la intercepción de mensajes de error el 
programa que encontrará más adelante 


2.2.2.2 La orden $482 Drive Parameter 


Esta orden permite la modificación de los datos de la unidad 
de disco. En ellos se incluyen el tiempo de espera hasta que 
el rotor alcance la velocidad de rotación debida tras 
encender el motor del disco, también el periodo de tiempo 
que se ha de esperar tras un cambio de pista, asl como el 
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tiempo remanente de rotación. También se determinan de nuevo 
en esta rutina los periodos para el HEAD LOAD TIME y el HEAD 
UNLOAD TIME. 


Contrariamente a todas las demás rutinas de la ampliación de 
órdenes, anteriormente vistas, %82 no puede ser llamada 
mediante las conocidas rutinas del  kernal. Y es que £82 
espera hallar en el par de registros HL el comienzo de la 
tabla para los datos de la unidad de disco. Esto cancela el 
salto hediante KL FAR PCHL, dado que esta rutina del kernal 
precisa en HL la dirección de la rutina a la que hay que 
saltar. Pero hay otros caminos para efectuar la llamada a 
una orden de una ampliación. 


100 LD HL, COMMAND ¿Dirección del comando 
110 CALL  KL-FIND-COMMAND ¡Vector *$BCD4 
120 RET NC ¿Comando no hallado 
130 LD (FARADR) , HL ¿Anotar dirección rutina 
140 LD A,C ¡Selección de ROM al acu.. 
150 LD (FARADR+2),A ¿Y almacenar también 
160 LD HL, NEWTAB ¿Tabla parámetros unidad 
170 RST 118 ¿Va como CALL a rut. des. 
180 DEFW  FARADR ¿Vector a dir. FAR (3 B.) 
190 RET 
200 COMMAND: DEFB 282 ¿Nombre del comando 
210 FARADR: DEFS 3 ¡Espacio para dirección 
¿de 3 bytes 
220 NEWTAB: DEFS 7 ¡Es preciso transferir 
37 bytes a £82 
230 HDUNLD:  DEFS 1 ¿Aqui ha de ir el HEAD 
3UNLOAD-TIME deseado 
240 HEADLD: DEFS 1 ¿HEAD LOAD-TIME tras 


¿página del FDC 


Hemos introducido de un modo algo distinto al utilizado en 
las anteriores llamadas al AMSDOS una orden RESTART. El RST 
x18 supone una versión distinta de la orden CALL. A través 
de este RST puede efectuarse, similarmente a la rutina 
KL-FAR-PCHL, cualquier dirección en cualquier ROM O RAM 
posible. Pero la ventaja del RST 18 consiste en que no se 
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precisa registro alguno. Mediante esta rutina podemos 
transferir parámetros incluso al par de registros HL y al 
registro € para los subprogramas a activar, lo que no era 
posible con las rutinas del KERNAL utilizadas hasta ahora. 
Para ello los tres bytes han de ser transferidos a la 
dirección FAR en la memoria del CPC. Estos tres bytes, es 
decir, la direción de dos bytes y el byte de ROM-select han 
de ser dados en cualquier caso en el orden indicado y 
conjuntamente. 

Veamos ahora el aspecto que ha de tener la tabla requerida. 


El primer apunte en la tabla es un valor de 16 bits que 
define el tiempo de espera necesaria tras la conexión del 
motor tractor de la unidad. Resulta obvio que el disco no 
alcanza la velocidad nominal de rotación inmediatamente tras 
la conexión del motor tractor de la unidad. Ello llega tras 
aproximadamente un segundo. Correspondientemente, el valor 
estándar es de 50 decimal, que va siendo decrementado con un 
ticker—-event. Dado que el ticker se verifica cada 1/50 
segundos, el tiempo de espera es de un segundo justo. 


El segundo apunte en la tabla describe el tiempo de rotación 
remanente, rotación que sigue al último acceso al disco. 
Tambien aqui se trabaja con un ticker. Tras la 
inicialización del AMSDOS, el valor de 16 bits es de 250 
decimal. Esto corresponde a un periodo de 2,5 segundos. 


En el caso del tercer apunte se trata de un valor de un 
byte. En el modo estándar, el contenido es un valor de taf. 
Este valor sólo se precisa para la rutina £86, formateado de 
una pista, y no deberia ser alterado. 


El siguiente valor de 16 bits también define tiempos de 
espera. El byte alto (high) de este valor define el tiempo 
que ha de  aguardarse tras un cambio de pista. El estándar 
incorporado es de mun lapso de 12 ms. Este lapso depende de 
la unidad empleada. 


En la tabla han de ser definidos otros dos tiempos de 
espera. Son los valores para los HEAD LOAD TIME y HEAD 
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UNLOAD TIME, que precisa el IC del controlador. Los valores 
dados en la ROM son de 32 ms para el HEAD UNLOAD TIME y de 
16 ms para el HEAD LOAD TIME. Puede hallar el significado 
preciso de estos valores en la descripción del FDC 765. 


La orden %82 es ejecutada de modo automático por el AMSDOS 
tras cada conexión o Reset. También bajo CP/M se efectúa una 
vez esta función al poner en marcha el CF/M. Bajo CP/M cabe 
la posibilidad de definir a voluntad los distintos 
parámetros a voluntad en el programa SETUP.COM. Hallará la 
tabla utilizada tras el Reset en la dirección 4C5D4.en la 
ROM del AMSDOS. 


2.2.2.3 La orden 1:83 Disk Format Parameter 


Como es sabido, el CPC puede trabajar, de origen, con tres 
formatos de disco distintos. La orden t83 posibilita 
determinar el formato del disco introducido en la unidad 
activa. Para cada formato se halla una tabla en la ROM del 
AMSDOS. Según el valor transferido al acumulador, la tabla 
precisa es dispuesta en la RAM del CPC. Gracias a ello puede 
el usuario disponer la tabla correcta en programas en 
lenguaje máquina mediante acceso directo. La utilización en 
BASIC es posible, pero ¡innecesaria ya que el  AMSDOS 
determina por si mismo estos valores. Incluso si expresa un 
determinado formato, previo a cada acceso, se proporciona 
adicionalmente de nuevo el formato. 


100 LD HL, COMMAND ¡Dirección del comando 
110 : CALL  KL-FIND-COMMAND ;Vector KBCD4 

120 RET NC ¿Comando no hallado 

130 LD (FARADR) , HL ¡Anotar dirección rutina 
140 LD A,C ¡Selección de ROM al acu. 
150 LD (FARADR+2),A ¿Y almacenar igualmente 
160 LD A, FORMAT ¿Indicativo del formato 


¿deseado (ver texto) 
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170 RST 18 ¿Como CALL a rut. deseada 
180 DEFW  FARADR ¡Vector a dir. FAR (3 B.) 
190 RET 

200 COMMAND: DEFB 183 ¿Nombre del comando 

210 FARADR: DEFS 3 ¡Esp. para dir. 3 bytes 


El programa no se diferencia en modo alguno de los mostrados 
hasta ahora. Unicamente queda por aclarar qué aspecto tienen 
los indicativos de los diferentes formátos de disco. 


La diferencia radica en los números de sector. En el formato 
CP/M del AMSDOS, en cada pista hay 9 sectores con 512 bytes 
cada uno. Estos nueve sectores llevan los números de sector 
241 hasta $49. Esto significa que en cada número de sector, 
el sexto bit esta activado. Por el contrario, en el formato 
de datos del AMSDOS, los números de sector van de *Ci hasta 
£C9. En este caso están fijados los bits sexto y séptimo en 
cada número de sector. En el formato CP/M de IBM:los números 
de sector van de %01 hasta %08. Es sabido que en este 
formato sólo hay ocho sectores formateados por pista. Con 
ello tenemos un critero para distinguir los tres formatos. 
Transfiera el valor O a las rutina %83 (o cualquier otro 
valor de bits 6 y 7 nulos), y la tabla de parámetros para el 
formato CP/M de IBM será dispuesta en la RAM. El formato 
CP/M del AMSDOS se consigue transfiriendo bit 6 activado y 
bit 7 desactivado. Para ello sirve tanto 440 como %x73. Si 
transfiere el valor con sus dos bits superiores activados 
(p.ej. %C0 o bien xFF), conseguirá el formato de datos del 
AMSDOS. 


2.2.2.4 La orden +84 Read Sector 


No. hay que infravalorar la capacidad de esta orden. Permite 
leer directamente cualquier sector del disco. 


Con ello deja usted de estar sujeto a las conocidas 
estructuras de datos, pudiendo construir a voluntad. 
estructuras propias como, por ejemplo, ficheros relativos o 
ficheros  ISAM. dado que la orden siguiente, %85, permite 


= 
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escribir directamente en cualquier sector del disco. 
Mediante estas dos órdenes, todos los bytes del disco están 
a su entera disposición. 

Para poder leer un sector determinado mediante +84, han de 
darse algunas indicaciones a la rutina. 


En primer lugar, la unidad de disco deseada. Esta 
información ha de ser depositada en el registro E. Un valor 
de O en el registro E selecciona la unidad A, un 1 
selecciona la unidad B. 


Por supuesto que, además, hemos de notificar a la rutina el 
sector deseado. El registro elegido para este parámetro es 
el registro C. Ha de indicarse el número de sector 
efectivamente existente en el disco. Asi que si desea leer 
el primer sector de una pista escrita en formato de CP/M del 
AMSDOS, el número de sector correcto es 241. 


Se precisa, además, la pista deseada del disco. El número de 
pista es dado al registro D. En el AMSDOS existen los 
números de pista de £00 a X%x27 (39 decimal). 


Con ello hemos transferido ' todos los parámetros importantes 
a los registros adecuados. ¡Pero vayamos poco a poco! Hemos 
de decidir en qué posición de memoria han de disponerse en 
la lectura los 512 bytes del sector. Este dato ha de ser 
transferido al par de registros HL. Con ello tenemos todos 
los parámetros en orden, y los datos pueden ir llegando. 


100 LD HL, COMMAND ¿Dirección del comando 
110 CALL  KL-FIND-COMMAND ¡Vector 2BCD4 

120 RET NC ¿Comando no hallado 

130 LD (FARADR) , HL ¡Anotar dirección rutina 
140 LD A,C ¡Selección de ROM al acu. 
150 LD (FARADR+2),A 3Y almacenar igualmente 
160 LD E,DRIVE 30/1 para disco A/B 

170 LD D, TRACK 30 — 39 por pista deseada 
180 LD C, SECTOR ¿¡No.sec.con format-offset 
190 LD HL, BUFFER 3512 bytes datos sector 


200 RST 18 ¡Va como CALL a rut.des. 
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210 DEFW  FARADR ¡Vector a dir. FAR (3 B.) 
220 RET 

230 COMMAND: DEFB 284 ¡Nombre del comando 

240 FARADR: DEFS 3 ¡Esp. p. direcc. 3 bytes 


Por el momento no pretendemos escribir un monitor completo 
de disco, pero el siguiente programa BASIC dispone de la 
función ”lectura de sectores”. Tecleelo con calma, amplielo 
y analicelo, para ganar confianza en el manejo de las 
órdenes. Este breve programa supone el armazón del ya 
mencionado monitor de disco. 


Antes de haberse convencido totalmente del correcto 
funcionamiento del programa, deberia hacer uso de la 
protección de escritura de su disco. Basta un byte 


incorrecto, el de comando, para que el sector elegido no sea 
leido, sino sobreescrito con el contenido del buffer. Si 
sobreescribe de este modo el primer sector del directorio de 
su disco master de CP/M com ceros, espero que previamente 
haya ¡hecho una copia del mismo. En caso contrario, se 
perdieron con toda seguridad 16 programas del disco. Por su 
propio interés, grábese en la mente este consejo: 


iii BACKUP, BACKUP, BACKUP !!! 


100 DEFINT a-z 

110 MEMORY RA000 -—1 

120 FOR adress= tA000 TO RA01C 

130 READ byte 

140 POKE adress,byte 

150 check = check + byte 

160 NEXT adress 

170 IF check <> 2941 THEN PRINT"Error en DATAs !'":END 
180 MODE 2 

190 INPUT "Output stream (0/8)";dev 
200 INPUT "Unidad (0/1)";drive 

210 INPUT "Pista (0-39)";track 
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220 INPUT "Sector (1-9) "¿sector 

230 POKE %A020, drive 

240 POKE %A021,track 

250 POKE %A022,sector+64 

260 CALL RKAO00O 

270 MODE 2 

280 lincnt = O 

290 FOR i = KA030 TO KAO3O+511 

300 IF*lincnt = O THEN PRINT ddev,”" ";HEX$(i-XA030,4)3" "; 
310 PRINT dev, HEX$ (PEEK(1),2)3" "z:zlinmcnt=1lincnt+1 
320 IF lincnont = 16 THEN lincnt=0 

330 a=PEEK(i):a=a AND 127 

340 IF a<x32 OR a=127 THEN t$="." ELSE t$=CHR$ (a) 
350 lin$=1lin$+ts$ 

360 IF lincnt = O THEN PRINT ddev,lin$:lins$="" 
370 NEXT 

380 PRINT" <SPACE> para seguir "” 

390 IF INKEY (47) THEN 390 

400 GOTO 180 

410 DATA 221,%1ic,%a0,tcd,%d4,%bc,%22,+%1d 

420 DATA %a0,%79,%32,%1f,%2a0,%21,%20,%a0 

430 DATA +5e,$23,%56,%423,%4e,%421,%30,%a0 

440 DATA %df,%id,%a0,%c0,:84 


El manejo de este programa se entiende por si mismo. La 
transferencia de las indicaciones Sigue el principio del 
buzón, es decir, escribimos los valores en posiciones de 
memoria concretas, de donde son recogidos por el programa en 
lenguaje máquina. Ello es necesario, dado que 
lamentablemente no existe modo alguno de cargar desde el 
BASIC los contenidos de los registros del Z80 directamente 
con algún valor. 


Tras haber asignado mediante POKE los parámetros precisos a 
sus posiciones de memoria, se salta a la rutina en lenguaje 
máquina mediante CALL. El sector indicado es buscado en el 
disco y los datos se escriben en un buffer de 512 bytes, a 
partir de *KA030. De aqui lee el programa BASIC los bytes, 
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que son llevados a pantalla en forma hexadecimal. Si lo 
desea puede desviar la salida a una impresora conectada. 


2.2.2.5 La orden $85 Write Sector 


La lectura de datos ya es, en si, bastante interesante. La 
rutina anterior permite echar un interesante vistazo, p.ej. 
al directorio 0ma las pistas del sistema O y 1 de un disco 
de CP/M. Pero podemos más aúm. La escritura de datos en 
cualquier sector del disco que deseemos es, con la orden 
85, ¡igual de sencillo que la lectura con 84. Incluso los 
parámetros necesarios, número de unidad, pista, sector y 
dirección de buffer de datos son transferidos a los mismos 
registros que en la lectura. Con ello se reduce la variación 
del anterior programa impreso a algunos bytes. Solamente han 
de ser variados el inúmero de la orden, el último elemento 
DATA en el programa BASIC y, por supuesto, la suma de 
comprobación. 


En plan experimental, puede tomar un disco recien 
formateado, e intentar escribir un sector. Para ello 
introduzca, mediante POKE, algumos bytes en el buffer de 
sector y escriba éste finalmente. Mediante la rutina de 
lectura impresa puede comprobar si todo ha ido bien. 


2.2.2.6 La orden %86 Format Track 


Esta orden es, en cierto modo, para especialistas. Permite 
el formateado de una única pista en el disco. Com ayuda de 
la orden %86 puede incorporar rutinas de formateado en sus 
programas, de modo que el usuario no se vea necesitado del 
programa en CP/M ”?FORMAT.COM” . 


Antes de que expliquemos esta orden "rescatada? de la 
ampliación, hemos de aclarar el modo en el que el FDC 765 
formatea una pista. Para no  adelantarnos a la posterior 


Programación con diskettes para avanzados 161 


descripción del FDC 765, desvelemos por ahora lo siguiente: 


El flopy-controller es, en relación al formateado de discos, 
extraordinariamente ”agradable al uso”. Le bastan algunos 
bytes, pocos, y se encarga del resto del *trabajo sucio”, 
como la generación de sumas de comprobación, el realizar las 
distintas marcas 1D y los llamados GAPs. Además vigila 
cuándo es marcado el comienzo de pista por la perforación de 
indice y reconoce si el disco está protegido frente a 
escritura. 


Si este minúsculo elemento ha de formatear un track, es 
decir, una pista, precisa en primer lugar el comando 
correspondiente. Este comando le dice (entre otras cosas), 
en qué unidad (drive) y qué pista ha de formatear, la 
longitud de los sectores a generar y que valor ha de emplear 
como fillerbyte. El fillerbyte, O byte de relleno, es el 
valor que se halla en todos los sectores como dato tras un 
formateado correcto. 


Parece evidente que para formatear, el motor de la unidad ha 
de estar en funcionamiento. Tan pronto como se reconoce la 
perforación de indice tras el comando, comienza el auténtico 
proceso de formateado. El FDC espera ahora del procesador 
cuatro bytes por cada sector a formatear. Para cada sector 
han de indicarse el número de pista, de cabezal, de sector y 
la magnitud del sector. Debido a que para cada sector se ha 
de dar también el número de sector, pueden llevarse los 
sectores al disco en una secuencia determinada por el 
programador. Con ello puede acelerarse considerablemente el 
posterior acceso. 


Pero ya seguiremos luego con esto. Veamos qué tiene que ver 
todo esto con el comando +86. 


El comando +86 espera parámetros en distintos registros, de 
modo parecido a las órdenes de escritura y lectura de 
sectores anteriormente descritas. En primer lugar, estaria 
la pista deseada. Este valor, como es sabido, es transferido 
al registro D. En el registro E del Z80 ha de hallarse el 
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número para la unidad de disco deseada. El registro C recibe 
el número del primer sector a formatear y el parade 
registros HL es utilizado como puntero de una tabla. 


Los tres primeros registros y sus funciones no se 
diferencian de aquellos de las rutinas anteriormente 
descritas. Pero también el par de registros HL tiene una 
función comparable a la de la escritura de datos. En la 
tabla direccionada mediante HL'se hallan cuatro bytes por 
cada sector a formatear, los ya mencionados valores para 
pista, cabezal y unidad, número de sector y magnitud del 
sector. El siguiente programa ejemplo le muestra cómo puede 
formatearse una única pista. 


100 ¡FORMATEAR PISTA COMPLETA 

110 ORG 25000 ¿Dir. inicial rutina formateado 
120 START: LD E, DRIVE ¡Drive deseado a registro E 
130 LD D, TRACK ¿Núm. de pista a registro D 
140 LD C,%41 ¡Primer núm. sector en pista 
150 LD HL,FTAB ¿Tabla 32 bytes para FDC 

160 RST 18 ¿Formato CALL 287 

170 DEFW FORMAT ¡Dir. de la dir. de 3 bytes FAR 
180 RET ¡Pista formateada 

190 FORMAT: DEFW  eC652 ¿Dir. en AMSDOS de rutina 187 
200 DEFB 7 ¡Dir. precisa de ROM-select 
210 FTAB: EQU $ 

220 SECT1: DEFB TRACK ¿Núám. de pista para sector-1D 
230 DEFB HEAD ¿Número de cabezal 

240 DEFB 241 ¿Número del sector 

250 DEFB 2 ¿Magnitud sector para la ID 
260 SECT2: DEFB TRACK 

270 DEFB HEAD 

280 DEFB 243 

290 DEFB 2 

300 SECT3: DEFB TRACK 

310 DEFB HEAD 

320 DEFB 245 

330 DEFB 2 


340 SECTA: DEFB TRACK 
350 DEFB HEAD 
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360 DEFB 247 
370 DEFB 2 

380 SECTS: DEFB TRACK 
390 DEFB HEAD 
400 DEFB 249 
410 DEFB 2 

420 SECT6ó: DEFB TRACK 
430 DEFB HEAD 
440 DEFB 242 
450 DEFB 2 

460 SECT7: DEFB TRACK 
470 DEFB HEAD 
480 DEFB 244 
490 DEFB 2 

500 SECT8: DEFB TRACK 
510 DEFB HEAD 
520 DEFB 246 
530 DEFB 2 

540 SECT9I: DEFB TRACK 
550 DEFB HEAD 
560 DEFB 248 
570 DEFB 2 
2.2.2.7 La orden +87 Seek Track 


Si bien todos los ejemplos con acceso directo al disco se 
dirigian hasta ahora sin más a la pista deseada, para 
ciertas tareas puede tener pleno sentido posicionar el 
cabezal en una pista determinada. Se encarga de esta tarea 
la orden +87. 


Para el posicionamiento sólo se requieren dos parámetros. En 
primer 'lugar se pide la unidad deseada. Como segundo 
parámetro, el número de pista a la que ha de llegar el 
cabezal. 


También en el caso de esta rutina, los programadores han 
aprovechado los registros como interface. El número de 
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unidad es necesario en el registro E, el registro D ha de 
contener el número de pista. 


También la utilización de flags como indicativos del éxito 
de la rutina es habitual. Un carry activado le notifica que 
la pista buscada ha sido hallada en el disco. 


Dado que el programa necesario tampoco difiere esencialmente 
de los anteriormente impresos, en este caso no nos 
extenderemos más sobre ello. 


2.2.2.8 La orden +88 Test Drive 


¿Desea conocer desde un programa en código máquina si está 
disponible una determinada unidad de disco? Nada más 
sencillo. La orden +88 revela toda la información de interés 
sobre la unidad seleccionada. En cualquier caso presenta 
esta rutina una cierta peculiaridad, ya que la información 
sobre la unidad a comprobar no se halla como es usual en el 
registro E, sino en el acumulador. 


Tras el retorno de esta rutina puede saberse, de los flags y 
del contenido del acumulador, si la unidad seleccionada está 
disponible. En caso de uma ejecución de la rutina sin 
errores, el flag de carry está activado. En tal caso, el 
acumulador posee el contenido del registro de estado O del 
FDC. Lo único interesante para nosotros es que la 
disponibilidad de las unidades queda marcada en el 
acumulador mediante un cero (para la unidad A) o por un uno 
(para la unidad B) 


2.2.2.9 La orden £89 Retry Count 


Si el cabezal ha de ser posicionado en una determinada 
pista, ello puede lograrse fácilmente mediante la orden £87. 
Y es que con esta orden se le comunica al controlador la 
pista deseada. 
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Después de que la unidad de disco haya movido el cabezal de 
escritura/lectura el número correspondiente de pasos en el 
sentido deseado, el FDC lee en la pista del disco, por si 
mismo, el número de pista necesario en el formateado. 


Si el número leido coincide con el deseado, el comando ha 
llegado con éxito a subtfin. Otro caso es cuando no puede 
leerse información alguna oO bien, si puede leerse pero no 
coincide con el número de pista deseado. En tal caso se 
lleva a cabo un nuevo intento de hallar la pista requerida. 


Es aqui donde aparece la orden $89. Con ella resulta posible 
fijar el número de intentos de lectura tras el posicionado. 
El  AMSDOS instaura un valor de defecto de 10 intentos. Ello 
suele bastar, pero pudiera resultar necesario ampliar esta 
cifra. 


El nuevo valor deseado es transferido a la rutina %89 a 
través del acumulador. Pero en ello hay que tener en cuenta 
que el valor de O es interpretado como el valor máximo, de 
256. No es imprescindible insertar valores menores que 10, 
pero con frecuentes intentos podemos echar a perder discos 
con problemas de lectura. 


Para comprobar los efectos sin ensamblador pruebe a asignar 
mediante POKE el valor 0Omasla posición de memoria *BE66. 
Ello equivale a la llamada a la orden %x89 y a la 
transferencia de O al acumulador. Si ahora inserta un disco 
virgen, es decir, no formateado, e intenta observar el 
directorio, oirá claramente cómo el cabezal va de un lado a 
otro del disco, para hallar la pista precisa. Si, por el 
contrario, asigna mediante POKE el valor 1 a la posición de 
memoria +*BE66, su unidad se tomará bastante menos interés en 
hallar datos en el disco vacio. 
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Capitulo 3 
Técnica del floppy y del disco 


3.1 El controlador del floppy 


Mientras que en el CPC 464 la electrónica del interface al 
floppy se conecta a la carcasa del ordenador, en el CPC 664 
y en el CPC 6128 ésta se halla junto a la primera unidad de 
discos, dentro de la carcasa del ordenador. Para el 
funcionamiento del interface, resulta relativamente 
indiferente el tipo de CPC que posea usted, ya que se 
diferencian sólo ligeramente. Puede ver los bloques de 
funciones globales en el diagrama de bloques de la figura 
16. 


El Floppy Disk Controller (FDC) integrado uPD 765 constituye 
el punto central de la tarjeta controladora. Este IC 
representa el interface entre las unidades de disco y el 
procesador del CPC. De hecho pueden montarse t+tloppys sin 
incorporar un FDC, pero la elevada *inteligencia propia” del 
FDC simplifica radicalmente la construcción. El gasto en 
hardware necesario, pero también la magnitud del software 
operativo a escribir se reduce drásticamente por la 
incorporación de un FDC. Un ejemplo lo esclarecera. 


La unidad de disco 1541 de la casa Commodore, conocida por 
muchos de ustedes como unidad para el Commodore Có64, es una 
unidad de disco sin FDC incorporado. Independientemente de 
la escasa velocidad de transferencia de datos (que a usted, 
como poseedor de CPC, le provocaria, Cuando menos, una 
sonrisa), limitada por la construcción, el gasto en hardware 
es, en esta unidad, claramente mayor que en el floppy del 
CPC. La electrónica digital del 1541 contiene un procesador 
propio, dos IC periféricos de 40 patillas y una gran 
cantidad de IC TTL distintos. ¡Un CPC 664 completo contiene 
un número comparable de componentes! 


El software operativo para el 1541 viene a ser, con sus 16K, 
doble al del AMSDOS. Sim ninguna duda, tanto proyectistas 
(por comodidad) como comerciantes (por motivos de costes) 
prefieren el fácilmente incorporable FDC. 
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Antes de abrir, por asi decirlo, la tapa del FDC en las 
próximas páginas, echémosle un vistazo al diagrama 
escrutando los distintos niveles. 





MOTOR ON 





BUS DIRECCIONES Lógica 
de 


decodif. 








Unidad 
de 
disco 


Figura 16 
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3.1.1 Descripción de la interfase del floppy 


Como se puede observar en el diagrama de bloques de la 
figura 16, toda la electrónica del interface puede dividirse 
en tres grupos funcionales. El primer grupo funcional consta 
de la ROM del AMSDOS y de un flip-flop. El flip-flop tiene 
la misión de desconectar —-bajo comando- el BASIC del CPC y 
activar la ROM del AMSDOS. Este flip-flop es activado cuando 
en la dirección de port %DFxx se da salida a un valor de 
Rx07. La ROM del AMSDOS está ahora activada en la zona de 
memoria desde *%C000 a RFFFF en un acceso de lectura. 
Cualquier otro valor desconecta el flip-flop y, con ello, la 
ROM del AMSDOS. 


Dado que la ROM se halla en un zócalo de IC de 28 patillas, 
resulta posible modificar el sistema operativo cambiándolo 
por ¡una EPROM de 16 K sin meternos en chapuzas. Y en los 16 
K utilizados sobra espacio para ampliaciones propias; el 
AMSDOS ocupa escasamente 8 K de la memoria disponible. Los 8 
K restantes se precisan para el LOGO, sin lo que apenas 
habria espacio para programas LOGO en esta zona en la ROM. 
Pero si podemos prescindir del lenguaje de programación 
LOGO, un sistema operativo ampliado para floppy siempre 
puede alcanzar los 16 K. . 


El segundo +tflip-flop representado en el diagrama controla 
los motores de las unidades de disco. La entrada de datos 
del flip-flop se halla en el bit de datos O. El impulso de 
CLK para el flip-flop se consigue, a través de varias 
puertas, de los bits de dirección A7, A8 y Al0 asi como de 
las señales IORQ y WR . Los bits de dirección mencionados 
han de estar aun nivel low para disparar el flip-flop. De 
ello resulta una dirección de port de R%FA7x, en el AMSDOS el 
flip-flop se referencia a través del PORT RKFA7ZE. 


Las puertas para la decodificación de la dirección de port 
del flip-flop de motor se utilizan también para la 
decodificación de las direcciones del FDC. Pero en tal caso, 
el bit de dirección A8 ha de estar a nivel alto para generar 
la señal CS. Esto da como resultado la dirección de port 
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UFB7x. Dado que el bit de dirección del procesador Á0O se 
utiliza para la elección de ambos registros del  FDC, 
resultan las direcciones de port XFB7E para el registro 
principal de estado y *FB7F para el registro de datos. 


También resulta interesante la generación de las dos seÑiales 
de Drive Select (selección de unidad). Si bien el FDC 
dispone de dos conexiones separadas para la generación del 
Drive Select, sólo una de ellas se utiliza. La seÑal de 
salida de la patilla 29, USO, se utiliza como señal 
selectora conectada a través de una puerta NAND para la 
unidad B, y a través de una segunda puerta NAND para la 
unidad A. Según la polaridad de la señal USO, la unidad 
activa es Á OB. Gracias a este diseño, los programadores 
del AMSDOS vieron facilitada su tarea. Basta con decrementar 
simplemente el valor para la elección de la unidad de disco, 
para poder determinar qué unidad ha de ser activada. Si el 
valor tras el decremento no es nulo, se activa la unidad A; 
si es nulo, se activa la unidad B. 


3.1.2 El FDC 765 


El FDC distribuido como uPD 765 por la firma NEC, como R 
6765 por  ROCKWELL y como 8765 por INTEL puede considerarse 
como un microprocesador muy especializado. Las posibilidades 
de este CI son tan amplias y complejas, que si la siguiente 
descripción peca por algo, no es por exceso. 


El formato de datos utilizado por el FDC corresponde al 
formato 3740 de IBM en Single Density y al IBM System 84 en 
Double Density. Debido a esta limitación, lamentablemente no 
pueden leerse o escribirse discos de Commodore o Apple, por 
ejemplo. 


Con sus cuarenta patillas ofrece todas las señales 
necesarias para el manejo de las unidades de disco usuales 
de las medidas de 8”*”*,5 1/4?” y 3””. Mediante las seffales de 
control existentes, el diseñador está en disposición de 
conectar este FDC a casi cualquier procesador. Caben en ello 
dos posibilidades para la conexión y funcionamiento. El 
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primer método es el funcionamiento DMA (Acceso Directo a 
Memoria). Junto con un controlado: DAM, el FDC puede tomar 
el control de las funciones de transferencia de datos a 
traves de la memoria del sistema del ordenador en la lectura 
y escritura. En tal caso, con la ayuda del controlador DMA, 
recoge de memoria nuevos datos O escribe en memoria los 
valores leidos de disco, evitando siempre el procesador. 
Este es un método muy rápido de transferencia de datos pero 
no está incorporado al CPC, y se menciona aqui simplemente 
para dar una visión global. 


En el segundo método, el incorporado al CPC, la 
transferencia de datos se lleva acabo por el 
microprocesador. En dicho método cabe distinguir a su vez 
entre dos posibilidades para el servicio del FDC. 
s 

En primer lugar esta el método de interrupts 
(interrupciones). Aqui se genera una interrupción para cada 
transferencia de datos. Tras ello ha de proporcionar o leer 
el procesador el siguiente byte de datos o de órdenes en la 
correspondiente rutina de interrupción del procesador. 
Debido a la construcción del hardware, esta posibilidad no 
pudo tenerse en cuenta, de modo que el proyectista utilizó 
el método de "polling" O escrutinio. El procesador ha de 
mirar regularmente en los registros del FDC la acción que 
éste reclama como próxima. 


Observemos ahora los datos sobre las prestaciones del 765. 
Pero piense en que el fabricante de la placa controladora no 
ha agotado las posibilidades del 763. 


Longitud de sector programable 

Programabilidad de todos los datos de unidades 
Posibilidad de conexión de hasta cuatro unidades 
Transferencia de datos en modo DMA o no-DMA a elegir 
Conectable a casi cualquier tipo usual de procesador 
Alimentación sencilla de 5 Voltios 

Reloj sencillo de una fase de 4 u 8 MHz 

Encapsulado de IC de 40 patillas 


$e de 34 10 dE Y DC 


Ahora nos centraremos con más detalle en el último punto de 
esta breve exposición. 
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3.1.2.1 La disposicón de conexiones del FDC 


Las conexiones del FDC pueden dividirse en distintos grupos. 
El primer grupo de conexiones supone el interface con el 
microprocesador. Por tanto, será a través de estas 
conexiones por las que se lleve a cabo el control del FDC 
por el procesador. 


El segundo grupo sólo es preciso en relación con el 
funcionamiento en modo DMA. Por aqui se comunican el 
controlador DMA y el FDC. 


El interface a los floppys es suministrado por el tercer 
grupo de conexiones, que con 19, es el grupo más numeroso. 


En el cuarto y último grupo se reunen las conexiones para la 
alimentación y el reloj. 

Comencemos con las conexiones del primer grupo, el interface 
con el procesador. 


El interface con el procesador 
RESET: 


La entrada de RESET del FDC es activa ante un nivel alto 
(high). En el servicio normal, dicha conexión se halla 
conectada a masa. Con un nivel alto en la patilla de RESET, 
el FDC llega a un estado definido. 


CS*: CHIP SELECT. 


Mediante un nivel bajo (low) en esta patilla se selecciona 
el FDC. Previamente un CSt=l1ow son válidos RD* y WRX para el 
FDC. Dado que la generación del CS queda en manos del 
fabricante, puede funcionar a elección como memory-mapped, 
es decir, llamado como parte de la memoria o a través de 
direcciones de port. 
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RDXx: READXx 


Esta conexión ha de ser unida a la seffal RD*X del 
microprocesador. Si éste desea leer datos del FDC esta linea 
ha de ser puesta a nivel bajo. 


WRX: WRITEX 

Asi como la linea RD*X delata accesos de lectura del 
procesador, un nivel bajo en WRX indica que el procesador 
está escribiendo datos u órdenes en el FDC. 


AOX*: ADRESS LINE O 


El FDC sólo dispone de 2 direcciones accesibles desde el 
exterior. Su distinción se lleva a cabo mediante AO. Esta 
linea suele ir unida al bit de dirección más bajo del 
procesador. 


DBO -— DB7: DATABUS 0-7 


Estas conexiones del FDC están unidas al bus de datos del 
sistema. Todos los comandos y datos son transportados a 
través de estas ocho conexiones bidireccionales. El sentido 
correspondiente de transporte es fijado por el procesador o 
por el controlador DMA en el modo DMA. 


INT: INTERRUPT 


El FDC puede generar una interrupción en el procesador del 
sistema a través de esta conexión. Las interrupciones se 
generan para Cada transferencia de un byte. (No se halla 
conectado en el CPC) 


Sefíal es para el modo DMA (no utilizado en el CPC) 

DRQ: DMA REQUEST 

Por esta conexión indica el FDC al controlador DMA que ha de 
conseguir ¡un acceso a memoria. En la siguiente oportunidad 


el controlador DMA toma el control del bus del sistema. El 
procesador se desconecta. 
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DACKX: DMA ACKNOWLEDGE 


Indica que el controlador DMA se hizo cargo del bus y 
comenzó la transferencia de datos. 


TC: TERMINAL COUNT 


Con nivel alto en esta conexión se interrumpe la 
transferencia de datos, desde y al ñFDC. Si bien dicha 
conexión se usa generalmente en el modo DMA, también puede 
utilizarse para ¡interrumpir transferencias en sistemas 
controlados por interrupciones. 


El interface con el floppy 
USO,USi: UNIT SELECT 0/1 


A través de estas conexiones pueden conectarse dos unidades 
de modo directo, o bien cuatro unidades con la ayuda de un 
decodificador dos-a-cuatro. A través de estas conexiones se 
selecciona la unidad elegida a finde llevar a cabo una 
lectura o una escritura. 


HD: HEAD SELECT 

Dado que el FDC está preparado para el servicio de unidades 
con dos cabezales, puede elegirse a través de esta conexión 
el cabezal deseado. 


HDL: HEAD LOAD 


Esta se incorpora casi exclusivamente en unidades de 8". Los 
motores de estas unidades no se conectan cuando se necesita, 


sino que normal mente ya están continuamente en 
funcionamiento. Para proteger el disco y el cabezal de 
lectura/escritura, éste únicamente se pone sobre la 


superficie del disco en caso de necesidad. El electroimán 
elevador que se encarga de esto, puede ser controlado 
mediante HDL. 
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IDX: INDEX 


En esta conexión se recoge el resultado de la acción del 
sensor bptico de indice y sele indica al FDC el inicio 
fisico de una pista. 


RDY: READY 


La señal de READY enviada por el floppy muestra que en la 
unidad se halla un disco y que gira a una determinada 
velocidad minima. Sólo tras la aparición del READY accede el 
FDC a la unidad. 


WE: WRITE ENABLE 


Esta salida del FDC ha de estar a nivel alto para poder 
escribir datos en el disco. 


RW/SEEK: READ WRITE/SEEK 


Una unidad de discos envia en total más señales de las que 
se hallan a disposición del interface con el floppy en un 
integrado de 40 patillas. Pero de todos modos, las señales 
no se necesitan todas a la vez. Por ello se han dividido 8 
de ellas en dos grupos, que pueden ser dispuestas a voluntad 
en cuatro conexiones del FDC, que las elige por si mismo a 
través de la conexión RW/SEEK. 


FR/STP : FIT RESET/STEP 


Esta es la primera de las cuatro señales dobles en el FDC. 
Esta salida tiene distintos significados según la operación 
realizada. En primer lugar puede volver a fijarse el error 
de flip-flip existente en algunas unidades. La segunda y con 
mucho la más frecuente utilidad es el comando de llas 
entradas de impulso de paso de la unidad. Con cada cambio 
del cabezal se envian los impulsos necesarios a esta 
conexión. 
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FLT/TRO: FAUL/TRACKO 


Esta entrada también puede presentar dos sefales distintas. 
Si se realiza una operación SEEK (ver programación del FDC) 
se espera a la salida de esta conexión, una señal de track O 
de la unidad. Esta señal se genera mediante un sensor óptico 
o un conmutador mecánico cuando el cabezal de 
escritura/lectura se halla en la pista fisica O. La segunda 
función, la señal de FAULT, es generada por algunas unidades 
de disco en caso de error y puede volver a ser borrada por 
el FDC mediante la señal FR/STP descrita anteriormente. Se 
comprueba esta señal en las operaciones de lectura/escritura 
del FDC. 


LCT/DIR: LOW CURRENT/DIRECTION 


Los impulsos de paso (step) de FR/STP indican únicamente que 
el cabezal ha de ser movido. LCT/DIR especifica en el modo 
SEEK el sentido del movimiento del cabezal. La función LOW 
CURRENT — es necesaria en la escritura de los datos. Mediante 
esta señal puede limitarse la corriente de escritura a las 
pistas interiores. Hallará sus particularidades en las bases 
tebricas del almacenamiento en disco. 


WP/TS: WRITE PROTECT/TWO SIDE 


En todas las unidades de disco, el estado de la protección 
de escritura es notificado al controlador como señal por 
parte de la unidad. Esta señal se comprueba en la entrada 
WP/TS en operaciones de lectura/escritura. La señal TS es 
comprobada en operaciones SEEK. Sólo se necesita en unidades 
de dos cabezales. 


WDA: WRITE DATA 


Por esta conexión se proporcionan a la unidad en serie los 
datos de escritura. Puede tratarse tanto de los datos que se 
presentan en la escritura de un sector como de toda la 
información precisa para formatear. 
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PSO,1: PRE SHIFT 0/1 


A través de esta conexión comunica el FDC, ante un formato 
de doble densidad  (MFM), a una parte electrónica adecuada 
cómo ha de ser escrito sobre el disco el flujo de datos. 
Para la precompensación caben estos tres estados: EARLY, 
NORMAL y LATE. 


RD: READ DATA 

Por esta conexión se proporcionan al FDC los datos leidos 
del disco. A partir de este flujo serial de bits se 
recuperan los bytes escritos. 

RDW: READ DATA WINDOW 

Esta señal se consigue en un separador de datos a partir de 
los datos leidos. Hallará más sobre el asunto en el capitulo 
”>Fundamentos del Almacenamiento en Disco””. 


VCO: VCD SYN 


Esta señal es precisa en el separador de datos PLL para el 
control del VCO. 


MFM: MFM MODE 


Esta conexión señala si el controlador está trabajando en el 
formato simple densidad o bien en el formato doble densidad. 
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Alimentación y señales de reloj 
Vcc: +5 V 


A través de esta conexión obtiene el FDC su tensión de 
alimentación. Esta tensión de 5 V deberia ser constante con 
una tolerancia del +- 5%. La intensidad requerida supone 
como máximo unos 150 mA. 


GND: GROUND 

Conexión de masa del FDC. 

CLK: CLOCK 

El FDC precisa una frecuencia de que según la unidad de 
disco, ha de ser de 4 MHz (en las de 5 1/4" y menores), o de 
8 MHz (en 8"). 

WCK=z WRITE CLOCK 

La frecuencia de esta señal ha de elejirse de acuerdo con el 
formato. En MF, la frecuencia ha de ser de 500 kHz y en MFM 


ha de ser de is Mhz. Esta frecuencia determina la velocidad 
de transferencia de los datos de y hacia el floppy. 
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RESET ——> (1) O —— ucc (+56) 
rn —= () O ——> RIW/SEEK 
we —=> () O ——=> LCT/DIR 
es — ) O ——=> FLIR/STEP 
no —= () O ——=> noto 

080 <«—>» () O «<—— nenoy 
DB1 <> () O «“—— WPRT/2 SIDE 
DB2 <«—>» () (O) <“—— FLT/TAKO 
DB3 «——> () uPD 765A O => Pso 

DB 4 «—=> () O —=> Ps1 
D85 «—=>» () O ——=> WDATA 
DB6 «——> () O ——=> uso 
DB7 «—> () O —=> us 1 

ora «<— () O ——=> sine 
pack ——» ()) O) ——=> MFM 

1 —= () O ——=> we 

INDEH ——=> () O ——=> sunc 

nt *— O) O <—— RoaTA 
¿—> O O «“—— wIND00w 
GND O O «“—— wetk 


Figura 17. 
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3.1.2.2 La programación del FDC 765 


El FDC 765 dispone en el exterior de sólo dos direcciones o 
registros. El registro disponible queda fijado por el nivel 
de la señal AO. Si AO se halla a potencial de masa, puede 
accederse al registro principal de estado. Este registro 
principal de estado sólo puede ser leido. Un nivel alto en 
AO permite el acceso al registro de datos. El registro de 
datos puede ser tanto escrito como leido. A través de este 
registro se programa el FDC, se transfieren todos los datos 
de escritura y lectura y se envian al procesador los datos 
de la fase de resultados. 


En los comandos del FDC cabe distinguir fundamentalmente 
tres fases diferenciadas. La primera es la fase de comando o 
de orden. En esta fase se transfieren al FDC todos los 
parámetros necesarios para el comando. Ello puede suponer 
hasta nueve bytes en algunos comandos. Una vez notificados 
al FDC todos los bytes de esta fase, comienza la fase de 
ejecución (execute). El significado concreto es que, por 
ejemplo, los datos llegan ahora, tras una orden de lectura. 
Finalizada la fase de ejecución, comienza la última, la fase 
de resultados (result). Durante la fase de resultados 
proporciona el FDC un total de hasta siete informaciones de 
estado, que han de ser leidas por el procesador. 


En cualquier caso, el esquema mostrado no afecta a toda 
orden. En algunas órdenes no existe fase de resultados, 
otras órdenes no tienen fase de ejecución. Una orden llega a 
prescindir incluso de ambas. Le basta la fase de órdenes. 
Antes de comentar cada uno de los comandos, demos un vistazo 
a las informaciones de estado. 


El FDC 765 dispone de un total de cinco registros de estado. 
El registro principal de estado ocupa, como ya mencionamos, 
una dirección propia (AO = low), y, como todos los demás 
registros de estado, sólo puede ser leido. De todos modos, 
siempre ' resulta posible un acceso a dicho registro, incluso 
durante la elaboración de una orden. 
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Los otros cuatro registros de estado sólo son accesibles 
para algunas órdenes en la fase de resultados. El primer 
byte de dichas órdenes muestra en la fase de resultados el 
estado del registro de estado O (STO). Los estados de ST1 y 
ST2 se envian detrás, en la fase de resultados, como bytes 
dos y tres. Solamente obtendremos el estado de ST3, el 
último registro de estado, si lo pedimos mediante una orden 
especial que tiene por único objetivo proporcionarnos dicho 
estado. El significado del registro de estado es algo que 
aprenderemos más adelante. : 


El FDC 765 dispone en total de 15 comandos diferentes. A la 
vista de este número ya se ve que este controlador tiene más 
posibilidades que la simple lectura y escritura. Ahora se 
trata de ver detalladamente qué posibilidades ofrece. Si 
algunos de los conceptos no explicados en este capitulo, 
com por ejemplo, sector 1D, Gap o Data Adress Mark, no le 
dicen nada, puede revisarlos en el capitulo sobre la 
representación fisica de los datos. 


Leer datos 


Antes de que el FDC pueda leer datos del disco, han de serle 
transferidos Y bytes en la fase de órdenes. Tras dar todos 
los datos se activa la señal Head Load y se espera el tiempo 
de Head Load programado. Tras ello lee el FDC  1Ds 
(identificadores) de sector hasta que halla el 1D del sector 
dado o que el impulso de indice aparezca por segunda vez 
tras el comienzo de la búsqueda. En el primer caso comienza 
con la fase de ejecución, en el segundo caso finaliza el 
comando y comienza la fase de resultados. 


Tan pronto ha identificado un sector, comienza con la fase 
de ejecución. En esta fase se leen los datos del disco y 
envian al procesador a través del bus de datos. Los 
intervalos de tiempo en que esto ocurre son muy cortos. 
Aproximadamente cada 26 microsegundos hay un byte disponible 
que ha de ser leido por el procesador. 


Tras la transferencia del último byte del sector deseado, 
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hay que darle al FDC un impulso de TERMINAL COUNT (TC, 
patilla 16), para encarrilar la fase de resultados, ya que 
sin el impulso de TC se llevaria acabo un denominado 
multi-sector—-read (lectura múltiple de sectores). 


Multi-sector-read significa que el controlador lee datos 
hasta el último sector de lla pista. De todos modos, bajo 
ciertas circunstancias, puede prescindirse del impulso TC. 
En la fase de sector de *leer sector” y en algón comando 
más, ha de darse no sólo el sector, deseado sino también el 
último de la pista. Si ambos valores son idénticos, el FDC 
interrumpe la lectura automáticamente al final del sector 
deseado y comienza con la fase de resultados. 


MT Multitrack-bit: si está activado, la función multi-— 
sector sigue en la segunda cara del disco; sólo dis- 
ponible en unidades dobles, siempre O en el AMSDOS. 


MF MFM—-mode-bit: si está activado, el FDC trabaja en 
doble densidad (double Density), siempre 1 en el 
AMSDOS. 

sk Skip-bit: si está activado, salta sectores borrados. 


No incorporable bajo AMSDOS y CP/M. Siempre O. 


HD Head-select-bit: selecciona cara en unidades dobles 
En el AMSDOS siempre es O. 


US 0,1 Unit select: elige unidad. En AMSDOS O para unidad A, 
1 para unidad B. 


R Read: lectura 
W Write: escritura 


Estos indicativos y abreviaturas son igualmente válidos para 
todas las representaciones que siguen. 
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BUS DE DATOS 
Fase [R/W | D7 D6 D5 D4 D3 D2 Di LO 


MT MF sk O 
Xx Xx 






























0 
Xx 


1 1 0 
HD USi USO 






Códigos de comando 










Información sector 1D antes 
de ejecutar el comando 
comando 


A IA número de pista ------- 
-=--- dirección de cabezal ---- 
=--- dirección de sector ----- 
ins longitud de sector ----- 
- último nr. sector en pista - 
espacio entre datos ID y long. 
long. datos si long. sector =0 













EETEZE 







Transferencia de datos 
entre FDD y sistema 























PSARDERS dirección sector ------ 
IATA longitud sector ------- 






RR. || =======-=== estado 0 ===“====== Informe de estado tras 

RO ===> estado 1 ----====-- ejecución del comando 

RO] ======o==> estado"2 == "=*== 

Ro | ------ número de pista ------- | Información sector ID tras 
Ro (===> dirección cabezal ------ gjecución del comando 

R 

R 


Figura 18 
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En la fase de resultados el FDC proporciona 7 bytes al 
procesador, que, a la mayor brevedad, deberá recoger, es 
decir, leerlos. El FDC no acepta ningún comando nuevo en 
tanto en cuanto no haya sido leido el úáltimo byte de la fase 
de resultados. 


Los tres primeros bytes proporcionados son los estados 0 a 2 
del registro de estado. El programador puede leer todos los 
datos relevantes sobre el éxito o fracaso de la orden, de la 
mano de estos tres registros. 


Además se proporcionan el número actual de pista, la 
dirección de cabezal (importante en unidades de dos 
cabezales), el número de sector y la longitud de sector. 
Sólo tras ello puede proseguirse con un nuevo comando. 


Escribir datos 


Igual que en la lectura, en la escritura de sectores son 
necesarios Y bytes. Tras haber transferido todos los bytes 
al FDC, éste comienza (transcurrido el Head Load) la 
búsqueda del sector deseado. Para ello lee IDs de sector 
hasta que identifique el sector deseado o bien aparezca por 
segunda vez en la búsqueda el impulso de indice. En el 
segundo caso, se interrumpe el comando e inmediatamente 
después comienza la fase de resultados. 
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BUS DE DATOS 
R/W | D7 D6 D5 D4 D3 D2 Di DO 


o. 0 1 0 1 Códigos de comando 
Xx X Xx HD USi USO Wr. 
u 
número de pista Información sector ID antes 
---- dirección de cabezal ---- | de ejecución de comando 
=--- dirección de sector 
lomgitud de sector 
- último nr. sector en pista - 
espacio entre datos ID y long. 
long. datos si long. sector =0 





zz 


W 
W 
W 
W 
W 
W 
W 


Transferencia de datos 
entre FDD <=> sistema 


Informe de estado tras 
estado 1 ejecución 
estado 2 
número de pista Información sector tras 
dirección cabezal ejecución del comando 
dirección sector 
longitud sector 


DIDIDO 





Figura 19 


Pero si se halla el sector deseado, el FDC requiere del 
procesador (en el servicio de no-DMA) los datos a escribir. 
Tras haber sido escritos todos los datos, comienza la fase 
de resultados. No varia con la del comando leer datos. 
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Leer datos borrados 


El indicativo para esta orden es algo confuso. No han de 
confundirse datos borrados con los datos demuun fichero 
borrado. El FDC no tiene ni idea de ficheros ni directorios. 
*"Borrados? se refiere a la posibilidad de marcar como 
borrados a sectores mediante la entrada de un Data Adress 
Mark borrado. Tales sectores son ignorados en una 
lectura/escritura normal. Por lo demás, la lectura de datos 
borrados no difiere de la normal 


BUS DE DATOS 


Fase | R/W| D7 D6 DS D4 D3 D2 Di DO 


LEER DATOS BORRADOS 


MT MF sk 0 1 1 O 0 | Códigos de comando 
Xx Xx X HD USi USO 


Observaciones 


número de pista Información sector previa a 
---- dirección de cabezal ----| ejecución del comando 
-=--- dirección de sector ----- 
=---- longitud de sector 


- último nr. sector en pista - 
espacio entre datos ID y long. 
long. datos si long. sector =0 


Transferencia de datos 
FDD <=> sistema 


Informe de estado tras 
ejecución 


número de pista Información sector ID tras 
dirección cabezal ejecución del comando 
dirección sector 

longitud sector 


DIIDIDDO 





Figura 20 
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Escribir datos borrados 
Esta orden no se diferencia en esencia de la escritura 
normal de datos. La única excepción la constituye el 


tratamiento especial de la Data Adress Mark; aqui se 
registra una Data Adress Mark borrada. 


BUS DE DATOS 
Observaciones 
Fase |R/W| D7 D6 DS D4 D3 D2 Di DO 
LEER DATOS BORRADOS 


MT MF. O o 1 10) 0 1 Códigos de comando 
X X X HD USi USO 


Ez 


número de pista Información sector ID antes 
---- dirección de cabezal ---- | de la ejecución del comando 
---- dirección de sector 

longitud de sector 
- último nr. sector en pista - 
espacio entre datos ID y long. 
long. datos si long. sector =0 


W 
W 
W 
W 
W 
W 
W 


Transferencia de datos 
FDD <=> sistema 


Informe de estado tras 
ejecución 
estado 2 
número: de pista Información sector ID tras 
dirección cabezal ejecución del comando 
dirección sector 
longitud sector 





Figura 21 
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Lectura de una pista 


Este comando es comparable a la lectura de un sector. La 
única particularidad es la de que con él se leen todos los 
bytes de datos de la pista. Este comando finaliza cuando 
haya sido leido el sector indicado como último o, si éste no 
fue hallado, cuando la perforación de indice genere el 
segundo impulso tras el inicio del comando. 


BUS DE DATOS 
Observaciones 
Fase |R/W| D7 D6 DS D4 D3 D2 Di DO 


LEER DATOS BORRADOS 


MF sk O 0 lo) 1 o Códigos de comando 
Xx Xx X HD USi USO 


zEE 


número de pista Información sector ID antes 
---- dirección de cabezal ---- | de la ejecución del comando 
=--- dirección de sector 
longitud de sector 
- último nr. sector en pista - 
espacio entre datos ID y long. 
long. datos si long. sector =0 
Transferencia de datos en- 
tre FDD y el sistema. 
El FDC lee todo lo que está 
en la pista entre la perfo- 
ración de indice y EOT. 


W 
W 
W 
W 
W 
Ww 
W 


estado 0 Informe de estado tras 
estado 1 ejecución 


número de pista Información sector ID tras 
dirección cabezal ejecución del comando 

dirección sector - 

longitud sector 


DIODIDAS 





Figura 22 
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Formatear una pista 


El formateo de una pista resulta muy sencillo con el 765. 
Para ello se transfiere al FDC una cadena de 6 bytes en la 
fase de órdenes. Si el FDC reconoce en el impulso de indice 
el inicio fisico de la pista tras la transferencia completa 
de los seis bytes, comienza automáticamente a formatear la 
pista con todas las Adress Marks, Gaps e IDs precisas. 


El byte 4 de la cadena de orden indica cuantos sectores hay 
que instalar en cada pista. El FDC requiere cuatro bytes más 
por sector. Uno es el número de sector, que queda anotado en 
el sector 1D. Ello permite formatear sectores en distintos 
órdenes. Con ello puede, mediante hábil elección del orden, 
acelerar sustancialmente los posteriores accesos a lectura. 


BUS DE DATOS 
Observaciones 
Fase R/W D7 D6 DS D4 D3 D2 Di DO 
FORMATEAR PISTA 


1 1 0 1 |Códigos de comando 
X HD US1 USO 


longitud de sector Bytes/sector 
sectores por pista Sectores/pista 
--espacio entre ID y datos--- 
-modelo de datos para sector- Byte de relleno 
FDC formatea la pista 
completa 


Ejecución 


Resultado estado 0 Informe de estado tras 


estado 1 ejecución 


número de pista En este caso la información 


dirección cabezal no tiene ningún significado 
número sector 


longitud sector 


DIDIDAOS 





Figura 23. 
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Leer ID 


Con este comando puede leer del disco el siguiente 1D 
posible, dando previamente dos bytes en la fase de órdenes. 
Cada sector obtuvo su propio ID en el formateado. En este ID 
se hallan los valores del número de sector, de pista, de 
cara del disco y de la longitud de sector. Estos valores son 
transferidos al procesador en la fase final de resultados 
junto con los estados de los tres registros de estado STO a 


sT2. 
BUS DE DATOS 
Observaciones 
D7 D6 D5 D4 D3 D2 Di DO 
LEER ID 


Códigos de comando 
A al Po 


Almacenar en el registro de 
datos la primera información 
correcta de ID de una pista 


Informe de estado tras 
estado 1 ejecución 
estado 2 
número de pista Información sector ID antes 
dirección cabezal de la ejecución del comando 
número sector , 


DIDIDO 


longitud sector 





Figura 24. 
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Los comandos de scan, comprobación de un sector 


Estas órdenes tienen un efecto de verificación (veritfy), es 
decir, de comparación entre los datos escritos y a escribir. 
Las condiciones de prueba som *igualdad”, "mayor o igual 
que” y ”memor O igual que. El FDC lee datos del sector 
elegido tras la transferencia de 9 bytes en la fase de 
órdenes. El FDC reclama simultáneamente datos al procesador. 
Cada byte del disco es comparado con un byte del procesador 
siguiendo la condición de prueba dada. Este comando finaliza 
cuando la condición de prueba se cumple en todo el sector 
dado, oO bien se comprobó el último sector de la pista, O 
bien si se produjo un impulso TC en la patilla 16. 


BUS DE DATOS 
Observaciones 
Fase |R/W| D7 D6 DS D4 D3 D2 Di DO 
SCAN IGUAL 


MT MF SK 1 0. 0 0 1 Códigos de comando 
Xx X X HD USi USO 


Ez 


número de pista Información sector ID antes 
-=--- dirección de cabezal ---- | de la ejecución del comando 
=--- dirección de sector 

longitud de sector 
- último n. sector en pista - 
espacio entre datos ID y long. 
long. datos si long. sector =0 


W 
w 
W 
W 
W 
Ww 
W 


Transferencia de datos 
FDD <=> sistema 


estado 0 Informe de estado tras 
ejecución 
estado 2 
número de pista Información sector ID tras 
dirección cabezal ejecución del comando 
dirección sector 
longitud sector 


DDD 





Figura 25. 
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LELEEREEJ DE DATOS 


| 07 D6 DS D4 D3 Dz D1 Do| D6 D5 D4 D3 D2 Di 


SCAN MENOR O IGUAL 


MT MF sk 1 1 o 0 1 Códigos de comando 
X Xx X HD USi USO 





Observaciones 


número de pista Información sector 1D antes 
-=--- dirección de cabezal de la ejecución del comando 
---- dirección de sector 

longitud de sector 


- último n. sector en pista - 

espacio entre datos ID y long. 

long. datos si long. sector =0 
Transferencia de datos 
FDD <=> sistema 


Informe de estado tras 
ejecución 
estado 2 
número de pista Información sector ID tras 
dirección cabezal -- ejecución del comando 
dirección sector 
longitud sector 





DIDIDOD 
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BUS DE DATOS 
DO 


D7 D6 D5 D4 D3 D2 Di 






Observaciones 











R/W 

















MT MF sk 1 1 1 0 1 
Xx Xx Xx X X HD US1 USO 






Códigos de comando 





zz 




















Información sector ID antes 
de la ejecución del comando 


e número de pista ------- 
---- dirección de cabezal ---- 
=--- dirección de sector ----- 
min longitud de sector ----- 
- último n. sector en pista - 
espacio entre datos ID y long. 
long. datos si long. sector =0 









EXE ZE ZE 








Transferencia de datos 
FDD <=> sistema 








o Informe de estado tras 
pa ejecución 
a número de pista 
A dirección cabezal ------ 
=== dirección sector ------ 
==> longitud sector ------- 













Información sector ID tras 
ejecución del comando 







Figura 27. 
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Recalibrado, buscar pista cero. 

Con este comando se mueve el cabezal de la unidad elegida 
hacia la pista cero hasta que, o bien el impulso de Track O 
indique al FDC que se ha alcanzado la pista, o bien el FDC 
haya suministrado ya 77 impulsos de paso. Puede determinarse 
cómo finalizó el comando mediante el registro de estado. 


BUS DE DATOS 


Observaciones 
R/W| D7 D6 DS D4 D3 D2 Di DO 
BUSCAR PISTA O 


1 1 1 Códigos de comando 
HD US1 USO 


Cabez.a pista O 





Figura 28. 
El comando SEEK, búsqueda de una pista 


Las unidades de disco mueven el cabezal de escritura/lectura 
con ayuda de motores paso a paso. Estos motores no están en 
constante movimiento, sino que son movidos, mediante 
impulsos, en variaciones angulares muy definidas alrededor 
del eje. La generación de estos impulsos suele llevarse a 
cabo en la propia unidad por circuitos digitales 
relativamente manejables. Una unidad dispone de dos 
conexiones hacia el exterior. En una de ellas se disponen 
los impulsos que controlan el motor paso a paso de tal modo 
que el cabezal es desplazado exactamente en una pista con 
cada aparición de un impulso. La segunda entrada de las 
unidades determina el sentido deseado. 


Este movimiento del cabezal se controla mediante el comando 
Seek. El FDC dispone en total de cuatro registros internos, 
en los que almacena la posición actual del cabezal de las 
cuatro posibles unidades. Estos cuatro registros se hallan 
tras el comando de recalibrado a cero, es decir, han sido 
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borrados. Si se envia un .comando Seek a una determinada 
unidad, el contenido del registro de posición 
correspondiente es comparado con el valor requerido. Si los 
dos valores son iguales, no se requiere acción alguna. Pero 
si existe alguna diferencia entre ambos valores, se 
influencia la polaridad de la sefíal DIR en la patilla 38 
correspondientemente al sentido preciso, y se generan 
impulsos de paso en la patilla 37. Puede programarse el 
intervalo entre dichos impulsos en un amplio rango mediante 
el comando *entrar datos unidad”. 


Ni en esta orden ni en el comando recalibrado existe fase de 
resultados. Tras un comando de Seek, el programador deberia 
incluir siempre el comando ”*leer estado de interrupciones”, 
para finalizar el comando de un modo ortodoxo. Este comando 
proporciona en la fase de resultados el estado del STO, 
también llamado estado de interrupciones. Sin este comando, 
el FDC no vuelve a aceptar órdenes de escritura/lectura. 


BUS DE DATOS 


R/W| D7 D6 D5 D4 D3 D2 Di DO 


BUSCAR PISTA 


Observaciones 


o. 0 1 1 1 1 Códigos de comando 
Xx Xx X HD USsi USO 
número de pista 
Posicionado del cabezal en 
pista deseada 





Figura 29. 
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Leer estado de interrupciones, registro de estado O 


El FDC genera interrupciones en el funcionamiento NO-DMA en 
las siguientes circunstancias: 


== durante la fase de ejecución 

- al comienzo de la fase de resultados 

= al final de un Seek o recalibrado 

= ante variación de la seÑffal READY de una de las 
unidades 


Si bien las dos primeras causas de interrupción pueden ser 
facilmente reconocidas por el procesador, en las dos últimas 
ha de: realizarse el 'comando *leer estado interrupciones” 
para reconocer la causa. El origen de la interrupción puede 
hallarse facilmente en los bits del valor del STO 
proporcionado. 


BUS DE DATOS 
Observaciones 
D7 D6 DS D4 D3 D2 Di DO 


LEER ESTADO DE INTERRUPCIONES 


Códigos de comando 


estado 0 Informe estado al final de 
núm. pista tras orden búsqueda | operación búsq. por FDC 





Figura 30. 
Lee estado de unidad, registro de estado 3 


Esta orden constituye la única posibilidad de conseguir el 
contenido del registro de estado ST3. Este registro informa 
acerca del estado de la unidad elegida y puede ser leido en 
cualquier momento mediante el correspondiente comando. 
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BUS DE DATOS 
Fase R/W D7 D6 DS D4 D3 D2 Di DO| Observaciones 
LEER ESTADO UNIDAD 


Comando o o o o 0 1 0 10) 
Xx Xx Xx Xx x HD USi USO 
Resultado | R |. ---=-=-=-=-=--- estado 3 --------- Informe estado FDD 
























Códigos de comando 
















Figura 31. 


El comando Specify, dar datos de unidad 


Si bien está en la última posición en nuestra breve 
exposición de las órdenes del FDC, esta orden deberia ser la 
primera tras un Reset o la conexión del FDC. Con ayuda de 
esta orden pueden ajustarse al FDC las unidades de disco más 
dispares. Todos los tiempos que se puedan plantear son 
notificados al FDC mediante este comando de tres bytes. 
Junto a los tiempos de demora, se decide si el FDC ha de 
trabajar en el modo DMA o en el modo de interrupción. 


Pero ocupémonos de los datos de unidad. En primer lugar el 
llamado step rate time. Es el tiempo que aguarda por sl 
mismo el FDC entre dos impulsos de (step) de paso. Dado que 
las unidades de los distintos fabricantes suelen esperar 
tiempos totalmente diferentes entre los impulsos, puede 
ajustarse dicho tiempo exactamente a los valores precisos. 


El segundo tiempo que podemos fijar es el tiempo de demora 
que el FDC introduce automáticamente tras activar la sefíal 
Head Load. Este tiempo de demora llamado Head Load Time sblo 
es relevante en umidades de 8”, en unidades menores casi 
siempre se carga el cabezal con la seffal Motor On. 


El tercer tiempo que podemos fijar es el Head Unload Time. 
Este tiempo programable es esperado tras el acceso a disco 
hasta que la señal Head Load del FDC vuelva a ser inactiva. 
También aqui, resulta únicamente significativo para unidades 
que efectivamente lleven a cabo el control del cabezal a 
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través de la mencionada conexión del FDC. 


R/W Observaciones 
0 | 00 0 O O 1 


1 Códigos de comando 


step rate-->--elevar cabezal Informe estado final ope- 
cargar cabezal Fación búsqueda por FDC 









ooo 
ooo 
ooo 
ooo 
oo 
o. o 









. ... ooo 





elevar cabezal 





A 






1 = modo DMA 
O = modo de NO DMA 





Figura 32. 
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3.1.2.3 Los registros de estado del FDC 765 


Como ya comentamos, el 765 dispone de 5 registros internos 
de estado. El registro de estado principal es legible en 
cualquier momento. El contenido de los registros de estado O 
a 2 se obtiene en la conclusión de todas las órdenes de 
escritura y de lectura. El acceso dirigido a los registros 1 
y 2 no resulta posible. Tan sólo puede leerse mediante 
acceso dirigido el contenido de los registros de estado O y 
3. 


La nomenclatura especial y las abreviaturas empleadas en la 
siguiente descripción están tomadas del folleto de NEC del 
765. Lamentablemente, esta nomenclatura no ha sido utilizada 
constantemente, ni siquiera por NEC. De ahi que en el área 
de aplicaciones del 765 aparezcan algunas abreviaturas o una 
nomenclatura parcialmente distinta a la utilizada en el 
folleto. 


Antes de ocuparnos en detalle de los registros de estado, 
hemos de explicar un concepto utilizado. El término 
"cylinder" (cilindro) mo significa otra cosa que track, 
pista. El porque de la aparición paralela de ambas 
denominaciones en el folleto resulta incomprensible para 
nosotros. Hemos ¡intentado evitar en lo posible el concepto 
cylinder. Pero en algunos puntos, las abreviaciones 
empleadas perderian totalmente el sentido. Aqui se conservó 
el concepto cylinder. 


El registro principal de estado 


En este registro se representan los datos más importantes 
sobre el estado actual del FDC. También se regula mediante 
este registro todo el protocolo entre el procesador y el 
FDC. Los ocho bits de este registro dan los siguientes datos 
y estados: 


Bit 7 ROM: Request For Master 
Si este byte está activado, el FDC está listo 
para leer o enviar un nuevo byte a través del 
registro de datos. Por el contrario, con el 
ROM desactivado es imposible la transferen- 
cia. 
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Bit 6 DIO: 


Bit 5 EXM: 


Bit 4 CB: 


Bits 3-0 DB: 


Data Input/Output (Entrada/Salida de datos) 
Si ROM muestra que una transferencia resulta 
posible, DIO indica el sentido preciso. Un 
DIO activado muestra que el FDC tiene un byte 
para el procesador. Un DIO desactivado indica 
que el FDC espera del procesador un byte. 


Execution Mode (Modo de Ejecución) 

Este bit sólo se utiliza en el modo DMA. En 
el funcionamiento DMA este bit suele estar 
desactivado. En el funcionamiento de NO-DMA 
el bit de EXM esta activado si empezó la fase 
de ejecución. Con la ayuda de este bit puede, 
por tanto, determinarse si se trata de valo- 
res suministrados para informes de sector o 
de los bytes de la fase de resultados. 


FDC Busy (FAC ocupado) 

Un bit de CB activado muestra que el FDC esta 
elaborando una orden de escritura o lectura, 
y no puede encargarse de más comandos. Este 
bit se activa a la recepción del primer byte 
de una Cadena de comando y permanece activado 
hasta la lectura del (último byte de la fase 
de resultados. Tras ello, el bit es automáti-— 
camente desactivado. 


FDD3-0 Busy (Unidad ocupada) 

Estos cuatro bits están asignados a las cua- 
tro unidades posibles. Si en una de estas 
unidades se inicia un comando SEEK o recali- 
brado, el bit correspondiente es activado en 
el registro principal de estado. Cuando uno 
de éstos bits está activado, no puede en- 
viarse al FDC orden de escritura oO lectura 
alguna. Pero siguen siendo posibles otras ór- 
denes de SEEK o de recalibrado en las restan- 
tes unidades. En tal caso se activa el bit 
correspondiente para cada nueva orden. 
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Estos bits mo se desactivan automáticamente 
al final de la orden. Para volver a poner es- 
tos bits a O ha de ser enviado al FDC el co- 
mando ”leer estado de interrupción”. Esta 
orden borra los bits, si finalizó el comando. 


El registro de estado O 


El registro de estado O se designa como registro de estado 
de interrupciones, dado que en el funcionamiento de NO-—DMA 
proporciona la causa de la interrupción. 


Bit 6,7: 


Interrupt Code (Código de interrupción) 

En estos dos bits el FDC aclara el trancurso 
de un comando. Caben cuatro posibilidades con 
estos dos bits: 


Bit 

76 . 

OO Comando finalizado con éxito. Este seria 
el mensaje deseable, dado que significa 
que, p.ej, un acceso a lectura fue fruc- 
tifero. Pero, ¡ojo! 


Oi Comando interrumpido. En este caso el 
comando fue comenzado, pero no finalizó 
con éxito. Tal mensaje puede aparecer en 
el caso de, p.ej, errores de lectura del 
disco, y en CPC surge también tras cada 
lectura O escritura de un sector. La 
causa es la falta de la seffal TC y la 
consecuentemente necesaria programación 
del último sector de pista como el úl- 
timo sector a leer. Por ello, la apari- 
ción de esta condición no ha de enten- 
derse necesariamente como un auténtico 
error. 


” 
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Bit 5 SE: 


Bit 4 EC: 


10 Comando inválido. El comando dado no 

pudo comenzarse ya que se trataba de un 
comando ilegal. 
También obtendrá este comando si ordenó 
"Leer estado de interrupciones” sin que 
existiera, en aquel momento, interrup- 
ción alguna. 


11 Comando interrumpido. La causa de este 
mensaje es una variación de la señal 
READY de la unidad elegida durante un 
comando. Y es que el comando comenzó, 
pero no fue completamente finalizado. 
Obtendrá este mensaje, p.ej, en caso de 
que retire el disco de la unidad durante 
un acceso a lectura. 


Seek End (Fin de Seek) 
Tan pronto se finalice un comando de Seek, el 
FDC pone este bit a uno. 


Equipment Check (Error de equipo) 

Este bit de estado muestra en primer lugar si 
la unidad notifica un error. En caso de error 
se activa el bit de EC. La segunda causa de 
un bit de EC activado es la permanencia de la 
TRKO señal tras un recalibrado. En el reca- 
librado se mueve el cabezal hacia la pista O 
hasta que o bien el sensor de pista O envie 
un mensaje al FDC o bien hasta que hayan sido 
enviados 77 impulsos de paso a la unidad. Tal 
caso puede aparecer en unidades de 80 pistas 
cuando el cabezal de escritura/lectura se 
halle en las pistas de la 78 a la 80. Enton- 
ces puede repetirse el comando de Recalibrado 
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Bit 3 NR: 


Bit 2 HD: 


Bit 1,0 US: 


unidad esta 


Not Ready (No preparado) 

Si la unidad elegida notifica en una orden de 
escritura o de lectura que no está lista, se 
activa este flag. También lo activa el acceso 
a un segundo cabezal no existente. 


Head Adress (Dirección de cabezal) 
Este bit informa sobre el cabezal elegido en 
este momento de la interrupción. 


Unit Select (Unidad activa) 
Estos dos bits indican qué 


activa 


en el momento de la interrupción. 


El_registro de estado 1 


Este registro 


informa, en la fase de resultados, sobre el 


desarrollo de la fase de ejecución. 


Bit 7 EN: 


Bit 6 


Bit 5 DE: 


End of Track (Fin de pista) 

Este flag. es activado por el FDC cuando in- 
tenta un acceso amuun sector tras el fin de 
pista programado. 


no utilizado, siempre cero 


Data Error. (Error en datos) 

El FDC genera en la escritura de datos, y de 
modo automático, una suma de comprobación se- 
gún el principio del ”*Cyclic Redundancy Check 
(CRC)”?, que es almacenad- en el disco junto 
a los datos. Estas sumas de comprobación 
(checksum) se forman de igual modo en la lec- 
tura de datos y se comparan con los valores 
almacenados. Si el FDC halla alguna diferen- 
cia entre ambas sumas de comprobación, la 
de los campos de datos y la de los campos de 
1D, el flag de DE se activa. 
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Bit 4 OR: 


Bit 3 


Bit 2 ND: 


Over Run (Se excediób tiempo de transferencia) 
La transferencia de datos entre el procesador 
y el FDC ha de llevarse a cabo en la lectura 
o escritura de los datos antes de un máximo 
de tiempo. De este modo, los datos son envia- 
dos al procesador a intervalos de sólo 26 us. 
Si el procesador no puede soportar por alguna 
causa esta velocidad, ocurre que hay un nuevo 
byte preparado para la lectura, antes de que 
el procesador haya tenido tiempo de leer el 
anterior. En tal caso se habla de Over Run, y 
el bit de OR se activa. 


no utilizado, siempre cero 


No Data 

La activación de este flag puede tener diver-— 
sas causas. 

En la ejecución de un comando de escritura, 
de lectura (Ode Scan, se activa este flag en 
caso de que el controlador no pueda hallar el 
sector indicado. 

En la ejecución del comando leer sector 1D” 
se activa el flag ND si el controlador no 
puede efectuar una lectura carente de errores 
de un campo de 1D. Tambien en este caso la 
causa de error esun error en la suma de 
comprobación. 

La tercera causa posible aparece con el 
comando "leer pista”? si el sector de inicio 
no fue hallado en la pista. 
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Bit 1 NW: Not Writable (Escritura no permitida) 
Si en la ejecución de los comandos escribir 
sector”, *escribir sector borrado”? o ”+orma- 
tear pista”? se detecta que el disco está pro- 
visto de protección de escritura, se activa 
este flag. 


Bit OMA : Missing Adress Mark(Perdida Data Adress Mark) 
Este flag se activa cuando el FDC no halla en 
la lectura de datos la 1D de sector en el 
termino de una revolución completa del disco. 
La falta de la Data Adress Mark o una Data 
Adress Mark borrada también se indican me- 
diante la activación de este bit. Adicional y 
simultáneamente se activa el flag de MD en 
el registro de estado 2. 


El registro de estado 2 


Similarmente a lo que ocurria en el STi, en el ST2 se dan 
informaciones acerca del éxito o fracaso de un comando. 


Bit 7 no utilizado, siempre cero 


Bit 6 CM: Control Mark 
Si el FDC halla una Data Adress Mark borrada 
al efectuar una lectura de datos oenun co- 
mando de scan, activa este bit. 


Bit 5 DD: Data Error in Data Field(Error en campo Data) 
Similarmente al flag de DE (bit 5 del ST1), 
este bit se activa ante errores de CRC. De 
hecho, este bit sólo se activa ante errores 
en campos de datos. 


Bit 4 WC: Wrong Cylinder (pista erronea) 
Al formatear una pista han de indicarse, para 
cada sector los números de sector, de pista y 
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de cabezal y la longitud de sector. Estos da- 
tos son almacenados en la 1D de sector, y 
leidos dentro de un comando de lectura. Si el 
FDC detecta alguna diferencia entre el número 
de pista leido y el dado activa el WC-flag. 


Bit 


(A 


sH: Scan Equal Hit 
Si se inicia un comando de Scan que compruebe 
la igualdad de la información de sector con 
los datos suministrados por el procesador, se 
activa este bit si los datos son iguales. 


Bit 


158] 


SN: Scan not Satisfied 
Si, en un comando de Scan cualquiera, el FDC 
no halla ningún sector que corresponda a las 
indicaciones, se activa el bit de SN. 


Bit +1 Bs Bad Cylinder 
Su significado es similar al del flag de WC. 
Se activa cuando el número de pista leido del 
ID es %FF y no coincide con el de la orden. 


Bit O MD: Missing ÁAdress Mark in Data Field 
Este flag se activa cuando el FDC no halla en 
la lectura de datos la Data Adress Mark o una 
Data Adress Mark borrada. 
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El registro de estado 3, el estado de la unidad 


El contenido de este registro sólo puede ser transferido al 


procesador 
Los bits 


mediante la orden ”*determinar estado de unidad”. 
de este registro reflejan el estado de la unidad 


elegida en el comando. 


Bit 7 FT: 


Bit 6 WP: 


Bit 5 RY: 


Bit 4 TO: 


Bit 3 TS: 


Fault (Fallo) 

El flag refleja el estado de la seÑfal Fault 
existente en algunas unidades. Si la unidad 
dispone de tal conexión y el bit está activa- 
do, es que apareció un error en dicha unidad. 


Write Protected (Protección de escritura) 

En este flag se puede ver si el disco inser— 
tado está protegido frente a escritura. Un 
flag de WP activado significa que el disco nú 
puede ser escrito. 


Ready 

Este bit se utiliza para mostrar el estado de 
la linea Ready de la unidad. 'Un flag de RY 
activado indica el estado ”Drive Ready”. 


Track O (pista 0) 

Si el cabezal de lectura/escritura de la uni- 
dad elegida se halla en este momento del co- 
mando en la pista cero, el flag de TO estará 
activado. 


Two Side (Simple o doble cara) 

En unidades de doble cabezal, esta conexión 
va a masa. En unidades sencillas, esta señal 
suele estar, por contra, a nivel alto. El 
programa puede reconocer en el estado del bit 
de TS que tipo de unidad está conectada. 
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Bit 2 HD: Head Adress (Cabezal) 
Este bit refleja el estado de la Head Select- 
señal del FDC (patilla 27). 


Bits 1,0 US: Unit Select (Unidad) 
Los estados de estos dos bits son idénticos a 
los niveles en ambas lineas de US del FDC 
(patillas 28 y 29). 


3.1.2.4 Inserción del FDC 765 en el CPC 


El fabricante, lamentablemente, no aprovechó ni de lejos las 
posibilidades del FDC al máximo. Asi podemos conectar 
únicamente dos de las cuatro unidades en un principio 
posibles. Tampoco resulta posible el funcionamiento de 
unidades de doble cabezal, por cuanto la señfal HEAD-SELECT 
es efectivamente enviada, pero no utilizada. Peor aún es el 
caso de la señal HEAD LOAD, que mo va conectada a parte 
alguna. Esta carencia puede ser perdonada, no sólo porque el 
servicio de unidades de 8" resulte poco interesante para el 
usuario *”medio”? por los enormes tamaños de estas unidades, 
sino también porque otros detalles de circuiteria resultan 
inviables en el controlador. 

A pesar de estas limitaciones, el controlador está muy bien 
realizado para la utilización elegida, la del servicio libre 
de problemas de dos unidades de 3”. Con un gasto de hardware 
minimo se creó un controlador que ofrece unas excelentes 
prestaciones. 


Por fortuna, dentro del ahorro de costes de todo fabricante, 
en este caso concreto no se lha limitado la potencia del 
aparato. Se le ha incorporado al FDC un componente como 
” ayuda” de un modo que reconocerán los expertos en hardware. 
Nos referimos al separador de datos integrado SMC 9229 (de 
20 patillas en el CPC 464) o bien el SMC 9216 (de 8 patillas 
en CPC 664 y CPC 6128). El FDC y el separador de datos 
generan todas las señales para el floppy-interface aparte de 
las necesarias para la activación de los motores de la 
unidad. 
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Si bien el servicio de DMA supone el método más sencillo y 
elegante de conectar el controlador del floppy, se decidió 


seguir otra opción, por motivos económicos. El  FDC es 
escrutado. Ello significa que el procesador es sincronizado 
con la transferencia de datos mediante los registros 


principales de estado. Las interrupciones generadas por el 
controlador no se utilizan. De hecho, la conexión de 
interrupciones del FDC no está conectada. 


Respecto a direcciones, el FDC se halla en las direcciones 
de port %FB7E y %FR7F. En la primera dirección se halla el 
registro principal de estado, la segunda corresponde al 
registro de datos. 


El Controller Board ocupa una tercera dirección. En el port 
UúFA7E se halla un flip-flop a través del que se gobiernan 
los motores de la unidad. Si escribimos un 1 (OUT RFA7E,1 en 
BASIC), son encendidos los motores de todas las unidades 
conectadas; si escribimos un O, son de nuevo apagados. 


Resulta interesante la disposición en el circuito de la 
conexión de Terminal Count y de la patilla de Reset. Ambas 
conexiones están unidas y obtienen simultáneamente un 
impulso positivo en caso de Reset. En el controlador no está 
prevista la generación de un impulso de TC independiente. 
Ello plantea naturalmente la pregunta de cómo se finaliza un 
acceso a lectura de disco. (Nota: las explicaciones que 
siguen no son sólo válidas para la lectura de datos, sino 
que son extensibles a los comandos de escritura y de Scan.) 


Lo usual es colocar un impulso de TC tras la lectura del 
sector deseado. Sin este impulso se ejecuta una E/S 
multisector, es decir, el controlador lee datos hasta que 
alcance el último sector de la pista. Pero dado que el 
último sector de la pista ha de ser programado dentro de los 
nueve bytes del comando de lectura, los fabricantes se 
sirvieron de un truco. Simplemente igualan el námero del 
último sector al del sector a leer. Tras haber sido leidos 
todos los datos del sector, el FDC finaliza automáticamente 
la lectura y comienza la fase de resultados. 
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De este procedimiento se desprende una cuestión ante la que 
hay que estar precavidos a la hora de la programación de las 
rutinas del controlador. Si se lee un sector mediante este 
procedimiento, el registro de estado O replica al sistema 
operativo mediante un mensaje de error que rezaz *”comando 
iniciado pero ¡irregularmente finalizado”, el bit 6 del STO 
esta activado. El motivo concreto del error se halla en el 
STi, donde el bit 7 está activado. Hablando claro: alcanzado 
el fin de la pista, intento de acceso a un sector tras el 
fin de la pista. Tal error ha de ser ignorado por el sistema 
operativo, pero sin despreciar otros eventuales errores. 


La estructura de circuitos existente no permite el servicio 
de unidades de 8 pulgadas. Pero el hecho es que las rutinas 
en el AMSDOS tampoco están concebidas para el servicio de 
unidades de 8". Bajo AMSDOS no resulta posible, o es en todo 
caso muy dificil conectar aparatos de otras caracteristicas 
cómo por ejemplo 80 pistas o doble cabezal. En lo 
fundamental, la conexión de tales unidades resulta posible; 
la señal correspondiente a elección de cabezal para unidades 
de doble cabezal es incluso enviada al floppy-interface. 
Pero en cualquier caso, partes esenciales del DOS han de ser 
reescritas, dado que el AMSDOS no soporta la HS señal. 


3.2 La estructura del disco 
3.2.1 Los tres formatos de disco 


Com es sabido, el CPC distingue tres formatos de disco 
distintos, el formato CPC estándar, el formato de datos y el 
formato IBM. Puede elegirse el formato utilizado en el 
formateo del disco indicando S o V (por System y Vendor), D 
(por Datos) O bien 1 (por IBM). Vamos a ocuparnos algo más 
detalladamente de cómo están estructurados los formatos y en 
qué se diferencian. 


En cada acceso a un disco, el AMSDOS determina por si mismo 
el formato. De hecho ello sólo sucede cuando no hay ningún 
fichero abierto en el disco. Pero podemos prescindir de esta 
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limitación ya que, como es sabido, no deberian extraerse de 
la unidad discos con ficheros abiertos. El criterio de 
distinción, los distintos números de sector en cada formato, 
ya fue comentado. 

Otra posibilidad para soslayar este log-in automático, como 
también se llama a la determinación de los parámetros de 
disco, consiste en fijar ciertas posiciones de memoria de la 
RAM. Hallará estas posiciones de memoria en el listado de la 
RAM del floppy en un capitulo posterior. 


Los tres formatos tienen algunas caracteristicas comunes. En 
primer lugar, el número de pistas en el disco. Siempre es de 
40, con las pistas individuales numeradas de O a 39. La 
longitud de sector también es la misma en los tres formatos, 
con 512 bytes/sector. Aparte de ello, con cualquier formato 
caben como máximo 64 ficheros por disco. 


Pero aqui se acaban las coincidencias. 


3.2.1.1 El formato CPC estándar o del sistema 


Este formato es, probablemente, el más usual y utilizado del 
CPC. Con este formato, una pista contiene 9 sectores con los 
números de sector %4i a %49. Aparte de ello, las dos 
primeras pistas del disco están reservadas para el CP/M. Asi 
que si desea trabajar en CP/M deberia utilizar este formato 
ya que sólo con él resulta posible un Start (Inicialización) 
o Warm Boot (Control C, arranque en caliente) del CP/M. 


Las pistas reservadas están dispuestas como sigue: 


Pista O, sector +41: sector de arranque (Boot) 
Pista O, sector +42: sector de configuración 
Pista O, sectores 443 a %47: no utilizados 
Pista O, sectores 48 y 449 y 

Pista 1, sectores 441 a 149: CCP y BDOS 
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Si bien hemos hablado hasta ahora de tres formatos, lo cual 
es basicamente correcto, el programa ?FORMAT.COM” reconoce 
la entrada de un cuarto parámetro, la ”V”, además de S, De 
Il. Con ella se formatea el disco como com S, sólo que no se 
escribe nada en las pistas del sistema. Esta opción esta 
pensada para la venta de software en CP/M, que ha de ser 
vendido sin CP/M por motivos de copyright. El usuario ha de 
escribir por si mismo las pistas del sistema tras la compra. 
En ello puede ayudar el programa SYSGEN. COM. 


3.2.1.2 El formato de datos 


También en este formato hay 9 sectores formateados en cada 
una de las 40 pistas. Sólo que los números de sector se 
denominan de %C1 a *%C9. En este formato no hay pistas 
reservadas para el sistema, de modo que quedan 9216 bytes 
más a su disposición. 


3.2.1.3 El formato IBM 


Este formato es idéntico al del PC de IBM bajo CP/M 86. En 
caso de que disponga de otro aparato además del CPC, podrá 
leer y escribir los discos del IBM también en su CPC. Ello 
supone naturalmente que ambos ordenadores trabajan con la 
misma medida fisica de floppy. 

El espacio de memoria resulta ser algo menor en el formato 
IBM que en los dos anteriores ya que solamente se formatean 
8 sectores en cada pista. Este reducido número de sectores 
queda en cierta medida compensado por el hecho de que 
unicamente se reserva uná pista, la primera, como pista del 
sistema. 
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3.2.2 La estructura del directorio 


En cualquiera de los tres formatos pueden almacenarse como 
máximo 64 ficheros en un disco. En este apartado trataremos 
con mayor profundidad acerca de dónde y de qué modo se 
almacenan en el disco los nombres de fichero. 


La estructura fundamental del directorio viene impuesta por 
el CP/M. Dado que los discos han de ser leidos y escritos 
tanto bajo CP/M como bajo AMSDOS, este último hubo de ser 
ajustado a la estructura de directorio del CP/M. Asi que, si 
bien hablaremos de AMSDOS en las siguientes explicaciones, 
debido a la compatibilidad de ambos sistemas operativos, 
dichas explicaciones serán también válidas para CP/M sin 
necesidad de que vayamos insistiendo en ello. 


La elaboración automática de un directorio es una de las 
tareas esenciales de cualquier sistema operativo de discos. 
Sólo gracias a un directorio de este tipo se da la 
posibilidad de hallar tan rápidamente datos en el disco. 
Pero si únicamente se anotan los nombres de los ficheros, no 
se obtiene el rápido acceso deseado. En tal caso deberia 
usted ocuparse de la correcta gestión de los sectores 
individuales en el disco. Se hará una idea de la complejidad 
de una tarea tal cuando, por cualquier motivo, el directorio 
de su disco preferido se haya vuelto completamente ilegible, 
y deba usted salvar los datos a mano. 


Asi que en el directorio deberia anotarse, además del nombre 
del fichero, la posición fisica de los datos en el disco. Y 
son precisamente estos dos datos los que almacena el AMSDOS 
en una entrada de directorio de un fichero. Antes de 
ocuparnos más profundamente del almacenamiento, es preciso 
aclarar algunos conceptos que se utilizarán frecuentemente 
en lo sucesivo. 


En primer lugar tenemos el concepto de SECTOR. Un sector es 
la zona del disco dispuesta para los datos al formatear. En 
el AMSDOS los sectores tienen siempre una longitud de 512 
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bytes, otros sistemas operativos utilizan sectores de 128, 
256 d incluso 1024 bytes. 


Si se han de leer datos del disco, siempre ha de leerse un 
sector completo. No resulta posible leer precisamente unos 
cuantos determinados bytes de un disco. El sector es, por 
tanto, la minima zona de memoria a la que podemos 
referirnos. 


Un RECORD es un bloque menor de datos, de exactamente 128 
bytes. Cada sector (del AMSDOS) contiene por ello 
exactamente 4 records. ¿Y para qué esta división? Pues la 
justificación se halla en la historia de la evolución del 
CP/M. El CP/mMm fue originalmente desarrollado para 
computadores con unidades de disco de 8". Al principio, los 
sectores todavia eran, en estas unidades, de 128 bytes. Fue 
después cuando se desarrollaron formatos en los que los 
sectores empezaron a ser mayores de 128 bytes. Para 
conservar la compatibilidad con el formato anteriormente 
utilizado, el BIOS dividió simplemente mediante técnicas de 
programación el sector mayor en unidades menores, de 128 
bytes. Con ello se sal vaguardó la compatibilidad. 
Lógicamente, el AMSDOS también trabaja a nivel de records. 
Ello significa que, de hecho, ni el AMSDOS ni el CP/M saben 
de sectores. 


Un tercer concepto que merece aclaración es el de BLOQUE. 
También este concepto proviene de los origenes del CP/M. Si 
se desea almacenar en disco ficheros de unos 10 K, ha de 
anotarse una considerable cantidad de sectores ocupados por 
el fichero. Pero podemos reducir drásticamente dicho número 
reuniendo varios records en bloques y anotando los números 
de bloque. La longitud de los bloques es de libre definición 
en CP/M, siendo usuales valores de i K (también en AMSDOS) o 
de 2 K. Para superar la cantidad de cálculos necesarios para 
ello, se numeran simplemente todos los records libres -es 
decir, no ocupados por las pistas de sistema- 
correlativamente comenzando por las pistas inferiores. 

En la práctica, un disco en formato S toma el siguiente 
aspecto: El sector +41 de la pista 2 contiene los records O 
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hasta 3 del disco. En el sector $42 se hallan los records 4 
hasta 7, y asl1 sucesivamente. Dado que, como se ha dicho, un 
bloque en AMSDOS tiene una longitud de 1isK, contiene 8 
records. De ahi que el bloque O haya de ser buscado en los 
sectores *%41 y x42 de la pista 2, mientras que el bloque 1 
ocupa los sectores $43 y 44, y, por ejemplo, el bloque 4, 
los sectores %49 de la pista 2 y 241 de la pista 3. 

De acuerdo, estos cálculos son un tanto enrevesados, pero 
ineludibles bajo CP/M y AMSDOS. Volvamos al directorio. 


éNo se ha preguntado nunca por qué cualquier programa le 
ocupa un minimo de 1 Koenel disco, incluso si es de un 
byte, lo que no llega a ocupar un sector, mi siquiera un 
record? Acabamos de conocer la causa. Son los números de 
bloque ocupados por el fichero, anotados en el directorio. 


Observemos atentamente una entrada de directorio de ese 
estilo. Por cada entrada se precisan 32 bytes. Comencemos 
con los 16 primeros bytes. 


00 46 4F 52 4D 41 54 20 20 43 4F 4D 00 00 00 15.FORMAT COM.. 


Se trata, en esta : estrada DIR, de la anotación 
correspondiente al programa FORMAT.COM. Más no se puede 
decir sin un conocimiento detallado del AMSDOS. El punto 
entre el nombre de fichero y la extensión aparentemente no 
es almacenado ya que el nombre de fichero es rellenado 
mediante dos espacios (valor ASCII 32 6 20 hex). Pero ¿que 
indica el valor de 0 ante el nombre de fichero? Acuérdese 
del número de user, que podia ser incorporado a cada 
fichero. Este número se anota en el primer byte de la 
entrada y regula el acceso al fichero. Este valor tiene otro 
significado especial aparte del anterior, que ya veremos más 
adelante. 

Siguen en el nombre de fichero 3 bytes nulos y 1 byte con el 
valor de +15. No resulta fácil obtener el significado de los 
mismos. Solamente son importantes los bytes 12 y 15, pero 
todavia no revelaremos su significado. Observemos antes los 
16 bytes restantes de la entrada. 
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55 56 57 00 00 00 00 00 00 00 00 00 00 00 00 00 UWN........-. 


Tampoco aqui resulta fácil entendér el significado de estos 
bytes. En cualquier caso, el intentar una orden CAT con el 
disco master de CP/M insertado nos ayudaria algo a 
solucionar el problema. En el catálogo aparece el fichero 
FORMAT. COM, con una longitud de 3 K. Dado que 1'K 
corresponde a un bloque y tres de los 16 bytes contienen un 
valor distinto de 0, resulta razonable sospechar que se 
trate de los números correspondientes a los de bloque. Y asi 
es. De hecho, la disposición de los bloques de un fichero se 
anota en los bytes 16 a 31 de una entrada de directorio. 


Ello da pie a un montón de nuevas preguntas; la principal de 
ellas deberia ser: ¿Qué sucede cuando un fichero es mayor de 
16 K? La respuesta es bien sencilla; el AMSDOS proporciona a 
los ficheros de tal magnitud simplemente una entrada de 
fichero suplementaria. Una entrada de ampliación, Extent; 
extensión se diferencia en escasos aspectos del primer 
asiento. En esencia sem anota la disposición de bloques de 
continuación en los bytes 16 a 31. El número de usuario y el 
nombre de fichero son idénticos en ambas entradas. 


La siguiente pregunta que se plantea reza: ¿En qué reconoce 
el AMSDOS que ha de seguir una extensión? Para ello hemos de 
conocer el significado del byte 15 de una entrada. Se 
precisa un simple ejemplo de cálculo. 


Nuestro ejemplo FORMAT.COM consta de tres bloques. Como ya 
hemos dicho, un bloque contiene 8 records. Ási que el 
fichero FORMAT.COM puede constar como máximo de 24 records 
(hex 18). El número de records de  FORMAT.COM es de 15 
hexadecimal. 

Si un fichero es tan grande que precisa más de una entrada, 
se calcula el valor en el byte 15 de la entrada mediante 16 
(bloques) * 8 (records) = 128 € $80. Cuando en esta posición 
se halle dicho valor, el AMSDOS supondrá automaticamente de 
ello que todavia sigue una extensión. 
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Para mo complicarnos con ficheros especialmente grandes con 
múltiples extensiones, se numeran dichas extensiones en 
orden creciente en el byte 12, es decir, inmediatamente 
después del nombre de fichero. Con ello se concreta el orden 
de lectura de las extensiones. Mediante esta organización, 
un fichero puede llegar a ser tan grande que no haya espacio 
para nuevas entradas en el directorio, Oo llenar el disco . 


Pero volvamos a hablar del primer byte del asiento. Como ya 
se comentó, en el se anota el número de usuario del fichero. 


Si prueba el programa para la lectura de sectores 
cualesquiera O el monitor de disco inspeccionando los 
sectores del directorio de algunos de sus discos, 


probablemente hallará en algunos ficheros el valor de %ES en 
lugar de un número válido de usuario (0 a 15). Pero mediante 
la orden CAT mo aparecen en el directorio los nombres de 
fichero correspondientes. No se sorprenda, ya que es más que 
altamente probable que los haya borrado usted mismo con 
ayuda del comando ERA. 

Y es que el AMSDOS es muy precavido al borrar ficheros. 
Unicamente se busca el nombre de fichero dado, con todas sus 
eventualmente existentes extensiones y se cambia el valor 
del número de usuario a %ES. A partir de ahora, dicho 
fichero no existe para el AMSDOS, aun cuando todos los datos 
sigan estando en el disco. Este cauteloso proceder del 
AMSDOS resulta muy agradable tras haber borrado 
inadvertidamente ficheros importantes. En un caso tal, lea 
simplemente los sectores del directorio mediante un monitor 
de disco y modifique los números de usuario del fichero 
borrado a un valor razonable. Tras reescribirlo, resucitan 
los ficheros. El valor £ES no fue tomado casualmente como 
marca de borrado. Tras el formateo, todos los sectores están 
escritos con el valor xES5, también por tanto los sectores 
DIR. Si ahora se efectúa un acceso al directorio, el AMSDOS 
halla para cada posible entrada el indicativo sin precisar 
procesos especiales. 


Ello nos lleva al último punto importante del directorio, la 
posición en el disco. Como ya mencionamos, en el directorio 
pueden anotarse hasta 64 ficheros. Con un gasto de 32 bytes 
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por entrada resultan necesarios 2048 bytes. Ello supone 2 
bloques, O bien 4 sectores o también 16 records. En esencia 
se utilizan en cada uno de los tres formatos los dos 
primeros bloques de la primera pista libre. Ási que en el 
formato S el directorio estará en los sectores %41 hasta 45 
de la pista 2, en el formato D en los sectores %C1 hasta tC5 
de la pista 0O0myoenel formato 1 en los sectores 01 hasta 
%05 de la pista 1. 


Y para finalizar el capitulo sobre el directorio, dos 
consejos. 


Si el bit 7 del primer carácter de una extensión, es decir 
del noveno byte de la entrada, se activa, el fichero 
contiene el atributo READ-ONLY (sóio lectura). Los ficheros 
asi marcados no pueden ser ni borrados ni renombrados bajo 
AMSDOS y CP/M. Para activar el bit existen (al menos) dos 
caminos distintos. La primera altermativa la ofrece el 
comando transeunte CP/M STAT. La segunda alternativa la 
ofrece el monitor de disco. Tras localizar la entrada a 
proteger en los sectores de directorio sume al valor ASCII 
del primer carácter el valor 128 0 $80, modifique el byte 
correspondientemente al resultado y escriba el sector 
simplemente de nuevo. 


Con nuestro segundo consejo, puede usted proteger un fichero 
de miradas indiscretas. Para ello ha de fijar, similarmente 
al caso del atributo de READ-ONLY, el bit 7 del segundo 
carácter de la extensión. También esta tarea puede 
realizarse bajo CP/M mediante STAT O bien con nuestro 
monitor de disco. Pero no olvide el nombre de los ficheros 
protegidos de esta forma. No lo conseguiria rescatar ni con 
CAT mi con DIR. 


3.2.3 La estructura de los ficheros 
Tras conseguir el capitulo anterior una visión global sobre 


la información almacenada en el directorio, veamos de qué 
forma están realmente almacenados los datos en el disco. 
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En primer lugar surge la pregunta de dónde se recoge en la 
lectura de un fichero información, como el tipo de fichero, 
la longitud del fichero Oo la dirección de inicio del 
programa cargado. Estas informaciones de cabecera no están 
contenidas en la entrada de directorio. Asi que han de estar 
almacenadas junto con los datos. 


Pero ello plantea el problema de saber en qué forma han de 
ser almacenados estos datos adicionales sin que se produzcan 
confusiones entre la cabecera y los datos. Llevaremos a cabo 
algunos ¡intentos que nos darán la clave acerca del modo de 
almacenamiento. 


Introduzca la linea 
SAVE "X1.BIN",B,%1000, 1024 


en su CPC y opulse la tecla ENTER. No nos interesa, por el 
momento, el contenido del fichero, por lo que puede elegir 
cualquier dirección como valor de inicio. Lo que si resulta 
importante es la longitud de lla zona de memoria. Como ya 
vimos, los ficheros se almacenan bajo AMSDOS siempre en 
bloques de 1 K. Dado que hemos elegido una longitud de 
exactamente 1 K, la longitud del fichero que muestra el 
directorio deberia ser de 1 Ko. «Que más quisieras' El 
fichero tiene 2 K. 


Vuelva a introducir la linea, pero rebajando el valor de la 
longitud de fichero en 100, dejándola en 924. Para sorpresa 
general, el fichero, aparentemente, aún no se ha reducido, 
pues sigue mostrando 2 K. 


Hagamos un tercer intento. Introduzca como longitud la 
expresión 1024-128. Y... abracadabra .conseguido! Nuestro 
fichero X1i.BIN ocupa solamente 1 K en el disco. Pero 
cualquier incremento en la longitud, aun de un único byte, 
lleva de nuevo a los 2 K. 
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Asi que se almacena un record adicional, O, dicho de otro 
modo, 128 bytes. En este record se hallan todas las 
informaciones de cabecera. El record de cabecera es el 
primer record de casi cualquier fichero. Y ¿por qué asi” 
Pruebe el siguiente programa: 


10 OPENOUT "“X1.DAT" 
20 FOR i=1 TO 1024 
30 PRINTHO, "x"; 

40 NEXT i 

50 CLOSEDUT 


De lo que hasta ahora conocemos se podria sospechar que el 
fichero X1.DAT ha de aparecer en el directorio con 2 K. Pero 
no es asi. De hecho, el fichero sólo ocupa 1 K, exactamente 
la longitud dada por el número de caracteres escritos en él. 


De ello se desprende la siguiente regla: 


Todos los ficheros ASCII puros, los almacenados con el 
indicativo %16, carecen de record de cabecera. (Nota: El 
sistema operativo sólo valora el nibble bajo, es decir, 
16 y 36 son igualmente tomados como ficheros ASCII 
puros.) 


En todos los demás ficheros, p.ej. programas BASIC o en 
lenguaje máquina, el primer record es el record de cabe- 
cera, que es copiado en la carga en la zona de cabecera. 


Hasta aqui, perfecto. Pero, ¿cómo puede determinar un 
programa si el fichero es un fichero ASCII puro? A fin de 
cuentas, en el directorio no hay información alguna acerca 
del tipo de fichero. Este problema le habrá costado al 
programador del AMSDOS más de un  quebradero de cabeza. 
Finalmente se tomb un camino que parece aceptable. 
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En la apertura de un fichero de entrada se efectúa una suma 
de comprobación de 16 bits sobre los 66 primeros bytes del 
primer record. El resultado se compara con el contenido de 
los bytes 67 y 68 del record. Si los valores coinciden, este 
record será, con relativa seguridad, un record de cabecera. 
En caso de que se cumpla casualmente esta condición de 
comprobación en un fichero ASCII, se pierde el primer record 
del fichero. Pero la probabilidad de que esto ocurra es 
infima, por lo cual no se comprueba. 


3.2.4 El registro fisico de los datos en el disco 


¿Es usted del tipo de personas a las que les gusta conocer 
el fondo de las cuestiones? Pues este capitulo le irá al 
pelo. Vamos a mostrarle de qué modo se hallan realmente los 
datos en el disco. Quede claro que en este capitulo 
entendemos por dato no sólo el contenido de un fichero, sino 
todo aquello que es alojado de algún modo en una pista. 
Aclararemos también conceptos como los de Sector-ID, Gap o 
Adress Mark. 


3.2.4.1 MF, MFM, bits y magnetismo 


Como ya sabe, la superficie del disco está dividida en 40 
coronas circulares concéntricas O pistas. El cabezal de 
escritura/lectura de la unidad de disco puede ser emplazado 
con precisión sobre cada una de estas pistas con ayuda de un 
motor paso a paso. De modo similar a como ocurre en una 
grabadora, los datos se almacenan sobre el disco en forma de 
bits. Pero el almacenamiento de datos en forma de bits y la 
utilización común de soportes magnéticos son todos los 
rasgos comunes entre ambos sistemas. 

En el floppy se magnetiza totalmente la rapa magnética del 
disco. En el cassette teniamos la mayor sobreexcitación 
posible con un factor de distorsión no lineal del 100 %. Y 
sin embargo, este factor ”*ideal” no molesta en absoluto en 
el floppy. Al contrario, cuanto mejor funcione la magnetiza- 
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ción en la escritura, más sencilla resultará la lectura de 
los datos. 


Para entender el formato de registro empleado en el CPC, 
hemos de realizar una breve incursión en la Fisica. El 
cabezal de escritura/lectura de una unidad de disco es, en 
esencia, una bobina. Las bobinas son de los elementos más 
interesantes de la Electrónica, si bien de los más 
olvidados. Una de las más importantes caracteristicas de las 
bobinas es el hecho de que un campo magnético variable 
induce en dicha bobina una tensión. También es importante 
indicar que el campo magnético varia constantemente para 
generar ¡una tensión constante en la bobina. Es el mismo 
principio que hallamos, por ejemplo, en la dinamo de la 
bicicleta. 


También resulta interesante de esta propiedad su 
reciprocidad. Una tensión alterna variable aplicada a una 
bobina induce en la misma un campo magnético variable con el 
mismo ritmo. 


Ambas propiedades de la bobina son utilizadas en el cabezal 
de escritura/lectura de la unidad de disco. Para escribir 
una información en el disco, se aplica una tensión alterna 
al cabezal, la cual crea un campo magnético. Este campo 
magnetiza el recubrimiento del disco, produciendo la 
grabación. En el caso inverso, mediante el campo magnético 
variable del disco se crea una tensión, que es ampliada y 
preparada por una electrónica adecuada. 


Por lo hasta ahora expuesto, podriamos caer en la idea de 
representar un bit bajo 6 O por la ausencia de magnetización 
y un bit alto 0 1 por la presencia del campo magnético. Con 
ello se obtendria en la lectura directamente de vuelta la 
señal digital. Pero no es tan sencillo. ia electrónica 
necesaria para ello tendria que trabajar con una extrema 
precisión, dado que, con múltiples bits altos y bajos, uno 
detrás del otro, tendrian que medirse y valorarse 
exactamente los tiempos respectivos para bajo y alto. 
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Resulta más sencillo, si junto a los datos se registra una 
frecuencia (de reloj) de referencia concreta. Mediante esta 
frecuencia de referencia resulta muy fácil determinar una 
celda de un bit. Pero el registro de campos magnéticos 
variando rápidamente en el caso de bits altos tampoco se ha 
de utilizar de este modo. En lugar de ello, se genera un 
impulso exactamente entre dos impulsos de referencia; en 
caso de un cero, simplemente no hay nada ahi. El aspecto de 
una Cadena de impulsos tal es el que refleja el diagrama de 
la figura 32. 


Mediante esta cadena de impulsos se dirige un flip-flop que 
con cada impulso de entrada invierte el estado de su salida. 
La tensión de salida resultante es la del diagrama de la 
figura 32. 


Esta señal de salida resultante es especialmente adecuada 
para el control del cabezal de escritura/lectura. Si la 
tensión de salida del  flip-flop es alta, a través de la 
bobina fluirá una corriente en un determinado sentido, y la 
capa magnética del disco se magnetizará en un cierto 
sentido. Pero si la tensión de salida del flip-flop varia, 
se ¡invierte el sentido de la corriente en la bobina, lo que 
también provoca la inversión del sentido de magnetización en 
el disco. 
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0) Impulso de referencia 

(D Bit HIGH 

O Bit LOW, no registrado 

O) 1 celda de bit = 2 unidades de tiempo 


-0--0--0--0--0--0--0--0- 
DEOPIPOPOVPIPOPAVAL 





Figura 32. 


Gráfica de la señal en el cabezal R/W en escritura 


(Simple densidad) 


Figura 33. 
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Si los datos se registran asi, es decir por diferencias 


alto/bajo, en el disco tenemos finalmente muchos 
microimanes, magnetizados en un sentido u otro según 
registro. La figura 34 representa gráficamente este 


encadenamiento de pequeños imanes. 


Pero, ¿qué sucede en la lectura de los datos? Hemos dicho 
que el disco es completamente magnetizado. Mediante la 
rotación del disco la multitud de microimanes pasa por el 
cabezal de lectura. Con cada variación del campo magnético 
aparece en la bobina un impulso, que puede ser amplificado y 
preparado. Entretanto, el campo magnético no varia 
prácticamente nada, tampoco se genera tensión alguna. La 
figura 35 representa la señal de salida amplificada. La 
similitud com el primer diagrama no es casual. Hemos leido 
nuestra información de nuevo integramente del disco. 


La electrónica de valoración ha de utilizar con este 
procedimiento únicamente dos tiempos. El primero y más largo 
es el lapso entre dos impulsos de referencia, que aparece 
siempre ante bits bajos, el segundo especifica el periodo 
entre el impulso de referencia y el de datos en bits altos. 
Dado que los tiempos se conservan con relativa precisión, 
pueden separarse los impulsos de datos de los de referencia 
con la ayuda de sencillos circuitos Mono-Flop, dado que 
siempre hay una referencia disponible para la 
sincronización. 


Algo más sobre los tiempos que intervienen: un impulso de 
referencia dura exactamente 500 nanosegundos (media 
millonésima de segundo, lo que con relojes de pulsera no es 
en absoluto mesurable), el intervalo entre dos impulsos de 
referencia es de 8 microsegundos. Ási que un byte precisa 8 
* 82 = 64 microsegundos para escribir oO leer con el 
procedimiento descrito. Con la velocidad nominal de una 
vuelta del disco cada 200 milisegundos, caben en el disco 40 
(pistas) *X 200 (milisegundos)/64 (microsegundos/byte) = 
125000 bytes. 


¿Qué en su disco caben de 40000 a 50000 bytes más? Bueno, de 
hecho, lo que hasta ahora le hemos descrito es el formato de 


Técnica del floppy y del disco 225 


simple densidad O MF. Basándonos en éste pasaremos a 
continuación a describirles el formato de doble densidad o 
MFM, el utilizado en el CPC. 


Figura 34. 


SEÑAL DE LECTURA AMPLIFICADA 


O Impulso de referencia 
(D Bit HIGH 
O Bit LOW, sin variación en el cambio de flujo 


VOVAVLAVLAVLAVLAVVVAVO 
22 ” prann 0 





Figura 35. 
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Algunas mentes despiertas no se conformaron con el 
procedimiento anterior. Se siguió investigando hasta 
desarrollar un procedimiento, viable en todo caso, para casi 
doblar la capacidad de almacenamiento. Se partió de la idea 
de que debla resultar posible renunciar de vez en cuando a 
los impulsos de referencia , aunque no sea posible hacerlo 
siempre. El registro de bits altos no plantea dificultades 
especiales dado que cada bit 1 a registrar provoca un cambio 
de flujo en el disco. Pero lamentablemente, también tenemos 
los bits O, que han de ser registrados. Si lo que tenemos es 
una secuencia de bits nulos, no hay sincronización. 

Para evitarlo, se registran simplemente bits de referencia 
ante varios ceros consecutivos. De nuevo se distinguen las 
diferencias entre los bits de referencia y de datos mediante 
tiempos, que de hecho som tres. Los hallara en las 
representaciones gráficas 36 y 37, donde el primer diagrama 
corresponde a la información de entrada y la segunda al 
registro en el disco. 

Un intervalo elemental de tiempo es el tiempo entre dos unos 
consecutivos, un intervalo de tiempo de longitud doble 
representa la secuencia de bits 1-O-1. Si siguen varios 
ceros consecutivos, se precisa del tercer lapso posible. 
Este tiempo, de una unidad y media de duración, denota el 
paso de impulso de referencia a impulso de datos OU 
viceversa. 


Por desgracia, en los gráficos no se aprecia demasiado bien 
la ventaja inmediata del procedimiento MFM, debido a la 
escala elegida. Pero tenga en cuenta que la división del 
tiempo no es la misma en ambas representaciones. Si se 
considera que mediante este procedimiento se trabaja el 
registro +fisico con el mismo número posible de cambios de 
flujo, es decir variaciones del campo magnético, resulta una 
duplicación efectiva de la capacidad del disco. 
Naturalmente, este procedimiento exige una electrónica de 
valoración algo más precisa que en el formato sencillo MF. 
Pero en el CPC es el ya mencionado separador de datos el que 
realiza dicha valoración de un modo absolutamente fiable. 
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O pit HIGH 


(0) Bit LOW, no registrado 


0) Bit de REFERENCIA, cuando hay que registrar 
más de un Bit bajo 
1 celda de bit = 1 unidad de tiempo 


-0--0--0--0--0--0--0- 
0. 0;0,0.0009400 





Figura 36 


Gráfica de la señal en el cabezal R/W en escritura 


(Doble densidad) 


1 1 0 1 0 0 0 1 


Figura 37 
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Pero todavia queda una pregunta en el aire. Dado que un 
disco formateado en formato MF tiene una capacidad de 125000 
bytes, un disco en formato MFM deberia poder almacenar 
250000 bytes. Pero sólo se anuncian unos 182000 bytes como 
capacidad. ¿Dónde queda el RESTO? 


3.2.4.2 GAPs, IDs y Adress-Marks 


En el apartado anterior dividimos el disco en pistas 
individuales. Ello fue necesario para la utilización de un 
motor paso a paso para el control del cabezal. En este 
apartado dividiremos el disco como si de un pastel se 
tratara, sin cuchillo, en trozos individuales, los sectores. 


Si no realizáramos esta división, no podriamos poner en una 
pista más que un fichero. Con ello se ocuparian siempre 6250 
bytes, independientemente de la longitud que realmente 
precisara el fichero. Y en ficheros muy pequeños, no es éste 
precisamente el procedimiento más económico. Al trabajar con 
ficheros secuenciales tendria que prepararse en la memoria 
del ordenador un buffer de al menos 6250 bytes. Si se ha de 
leer de un fichero y escribir simultáneamente en otro, la 
memoria precisa se eleva a nada más y nada menos que a 12500 
bytes. Demasiado incluso para un ordenador con 64 K. 


Como se ve, la idea de la división en zonas menores es 
totalmente razonable. Pero para separar claramente estas 
zonas entre si ha de realizarse un cierto gasto consistente 
en algo de espacio del disco, de modo que ya no disponemos 
de la capacidad de almacenamiento de datos original. El 
primer dato es la capacidad antes de formatear, la capacidad 
realmente disponible es la capacidad tras formateado. 


Nos ocuparemos con más detalle del formateado y de lla 
capacidad resultante. Hallará los procesos descritos 
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representados en la figura 38. Representa el contenido 
completo de una pista. 


El reconocimiento del comienzo fisico de una pista mediante 
la perforación de indice en el disco yo un sensor óptico 
correspondientemente ajustado no supone ninguna dificultad 
especial para el FDC. El sensor óptico de indice genera un 
impulso Cuando el rayo de luz llega al receptor a través de 
la perforación de indice. El fin del impulso es la seÑal 
para el FDC de comenzar inmediatamente com el formateo. Su 
primera acción consiste en escribir en el disco 80 bytes con 
el valor £4E. Esta zona se denomina GAP 4A. 


: 

La traducción literal de GAP es hueco. ¿Para que sirve este 
hueco? La respuesta es bastante explicita. El hueco iguala 
tolerancias entre distintas unidades de disco. A pesar de la 
indiscutiblemente alta precisión de la unidad, se dan 
pequeñas diferencias en el ajuste de los sensores ópticos de 
indice entre distintos aparatos. El GAP 44 es de tal 
magnitud que ciertas diferencias de ajuste dentro de un 
margen concreto sean irrelevantes. Gracias a ello pueden 
leerse y escribirse los soportes de datos -es decir, los 
discos- en distintas unidades de disco. 


Tras el GAP 4A se escribe una zona de Sync (sincronismo) de 
12 bytes nulos. Como ya sabe, con varios bytes O se indica 
la frecuencia de reloj, tanto en el formato MF como en el 
MFM. La indicación SYNC significa que el FDC es sincronizado 
con el reloj de referencia. 


Tras los 12 bytes de Sync, el FDC escribe tres bytes 
indicados como Index-Adress-Mark. Estos tres bytes siguen un 
esquema muy especial y pueden ser reconocidos por el FDC 
mediante un hardware especial en el chip. La marca de 
dirección de indice se escribe sólo una vez al comienzo de 
la pista, es decir, inmediatamente detrás de la perforación 
de indice y supone en cierto modo una seÑfal adicional para 
el comienzo de la pista. Tras esta marca se formatea un byte 
con el valor %FC y otro GAP, el GAP 1 com 50 bytes %t4E. Este 


230 El gran libro del floppy para el CPC 


GAP se precisa para dar tiempo suficiente al FDC para la 
elaboración del Index-AM en posterior lectura. Con ello esta 
formateado el tipico comienzo de pista. Ahora vienen zonas 
extras para cada sector. 


Cada sector comienza con 12 bytes de Sync. Al igual que 
antes, sólo se escribe la información de reloj. Tras los 
bytes ,de Sync, sigue una marca de dirección, esta vez la 
ID-Adress-Mark. También la ID-AM es de 3 bytes y puede ser 
decodificada mediante hardware por el FDC. Tras la ID-AM 
viene un byte con el valor %2FE. 


Hasta aqui, todos los sectores del disco son idénticos. Pero 
para poder acceder posteriormente a las pistas y sectores a 
voluntad se hace preciso marcarlos también. Y es 
precisamente de esta tarea de la que se encargan los 4 bytes 
siguientes, llamados campo de 1D. En el orden de la 
descripción se apuntan aquí el número de pista, la cara del 
disco (es decir O dd 1), el número de sector y la longitud de 
sector. Por supuesto que el último dato no puede ser 
directamente apuntado, ya que para sectores de 512 bytes se 
precisaria un campo de 2 bytes. La clave correspondiente 
corresponde a los datos dados al formatear. Los sectores de 
512 bytes se marcan con un 2 en este byte. 

Con ello se le ha dado a cada sector una identificación 
especial, la 1D de sector, de cuya mano resulta posible un 
acceso posterior dirigido. Pero el diseñador del sistema no 
ha dejado ningún cabo suelto. Para estar protegidos frente a 
eventuales errores, mediante los tres bytes de la ID-AM, el 
FE y de los 4 bytes del campo de 1D, se realiza un suma de 
prueba de 2 bytes según un procedimiento especial. Este 
procedimiento se denomina Cyclic Redundancy Check o CRC y 
permite el reconocimiento de errores de lectura, siendo de 
una alta fiabilidad. Los dos bytes de CRC obtenidos se 
escriben inmediatamente tras el campo de ID. 


Para darle tiempo al FDC en una posterior lectura de los 
datos para la comprobación de la 1D y de los bytes de CRC, 
le sigue en primer lugar otro GAP, el GAP 2 con una longitud 
de 22 bytes. El valor de los datos (intrascendente) vuelve a 
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ser 2%4E. El GAP 2 tiene, además, otro significado. Todos los 
datos de un sector son escritos en una posterior escritura 
del mismo tras el GAP 2. El GAP 2 permite al FDC llevar a 
cabo la conmutación entre lectura y escritura, lo que 
siempre supone algo de tiempo. 


¿Y adivina lo que sigue al GAP 27? Exacto, una zona de sync 
de 12 bytes nulos, que informa por fin del comienzo de la 
auténtica zona de datos. Pero todavia no se escriben en el 
disco los datos. Al sync le sigue siempre una zona de marca 
de direcciones. Este AM que se formatea ahora es la 
DATA-Adress-Mark, de la misma estructura que la AM de ID y 
que puede ser decodificada del mismo modo por el FDC. Como 
distinción respecto a la AM de ID, en la AM de DATA sigue un 
byte con el valor 2%2FB. 

Y ahora si. Por fin comienza la zona de datos, que recibe en 
el formateado el valor del byte de relleno. La longitud de 
esta zona es variable, pero fijada al formatear mediante los 
datos dados al FDC. Som posibles zonas de datos de entre 178 
y 4096 bytes. Pero en el último caso, en una pista cabria un 
único sector, por lo que casi siempre se eligirán longitudes 
de sector menores. En el CPC dicha longitud de sector está 
fijada en 512 bytes. 


También en la zoma de datos se efectúa una suma de 
comprobación de 2 bytes según el procedimiento CRC. Fara 
reconocer también errores en la DATA-ID, estos bytes se 
incluyen en la formación del CRC, de modo que con una 
longitud de sector de 512 bytes se comprueban en total 516 
bytes. 


El final de un sector conforma el GAP 3. La longitud de este 
GAP puede ser indicada en el formateo. En el CPC se escriben 
al formatear 82 bytes 24E. Este GAP tiene un significado muy 
especial. Si en un disco formateado se  sobreescriben 
posteriormente sectores con nuevos datos, resultaria 
totalmente ¡improbable que el disco girase exactamente a la 
misma velocidad que tenia en el formateado. Pero si la 
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AA 


GAP 44 SYNC INDEX GAP 1 SYNC 1D Lo) cre GAP 2 SYNC 


80 Bytes | 12 Bytes 12 Bytes 4 12 Bytes 
se 00 00 Bytes 00 


O: E, tos 









PREAMBLE SYNC SPACING SYNC SPACING SYNC 
FIELD BEFORE FIELD BETWEEN FIELD 
1ST SEC 1D AND 
INDEX ADRESS MARK 10 ADRESS MARK DATA 
FIELDS 
ONE BYTE OF FC ONE BYTE OF FE 
1D FELD CRC CHECK ON 1D FIELD PLUS 


crun | se [sectors ONE BYTE FE CHACK CHAR 
NO NO NO COVER PRIOR 8 BYTES 


00-4C 00=SIDE O 01-14-1 
O1=SIDE 1 OR 
01-08 7 


Figura 38 
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DATA FIELD 
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velocidad es ligeramente mayor, el arco precisado por el 
sector se alargará ya que la velocidad de registro es 
constante. Sin el GAP 3, un tal registro de mayor longitud 
simplemente sobreescribiria un sector de ID inmediato, el 
sector siguiente dejaria de ser legible. Pero las 
diferencias de longitud generadas por las oscilaciones de la 
velocidad pueden ser interceptadas mediante el GAP 3 aunque 
también se genere el GAP 3 en la escritura de un sector. En 
Cualquier caso se reduce drásticamente la longitud de un GAP 
generado en escritura de sector. De hecho se escriben tan 
sólo 42 bytes de GAP, de modo que queden suficientes para 
las diferencias que aparecen. 

Con. ello queda completamente formateado un sector, el FDC 
reclama ahora los valores para el siguiente sector y escribe 
también éste en el disco. Formateados en secuencia todos los 
sectores, se escriben bytes de GAP hasta la aparición del 
impulso de indice, con el cual finaliza el formateado de una 
pista. 


Como se ve, el FDC tiene bastante que ver con la preparación 
de una pista para su uso. Otros FDC distintos al 765 nos 
pueden ayudar bastante menos. Ási, por ejemplo, los 
frecuentemente incorporados controladores de la serie 197x 
precisan recibir casi cada byte del procesador, el programa 
de Hformateo se hace muy extenso y general. Pero gracias al 
gran apoyo del 765 el formateo con este FDC es casi un juego 
de nifios. 
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Capitulo 4 


La ROM y la RAM del AMSDOS 


En primer lugar hemos de aclarar que no todo el mundo ha de 
ocuparse ¡imprescindiblemente de las interioridades de un 
sistema operativo. Para muchos propietarios de ordenadores 


resulta totalmente suficiente con que los programas 
éxistentes funcionen sin errores y con un amplio margen de 
confianza. Tales propietarios pueden saltarse el prensente 


capitulo sin temor alguno. Pero si las posibilidades que 
pone a nuestra disposición el AMSDOS llegaran a no bastarle 
para tareas concretas, deberia acordarse de las páginas 
siguientes. Hallará aqui, en forma compacta, las llamadas de 
salto esenciales del sistema operativo del floppy y 
descripciones detalladas de Cada una de las rutinas. Si 
algún comentario le resulta poco claro, puede desensamblar 
el sistema operativo con ayuda de un desensamblador. Junto 
con los comentarios, seguro que entonces podrá conseguir 
rápidamente la información deseada. 


4.1 La RAM de sistema del AMSDOS 


Com ya sabe, al encender el CPC y el floppy dispone usted 
de una memoria de 42249 bytes para programas BASIC. Pero sin 
el floppy, es decir, con el AMSDOS desactivado, son 43533 
bytes los que ofrece el CPC. La diferencia de 1284 bytes no 
se debe exclusivamente al floppy. Este se reserva, al 
conectar, la mayor tajada, de 1024 bytes. Esta zona de 1024 
bytes suele ¡iniciarse en %KA700.. La limitación tiene un 
motivo especial en la gestión de ROMs externas a través del 
CPC. El CPC puede gestionar un máximo de 252 ROMs externas 
en la zoma de memoria de %KC000 hasta RFFFF. En ello se 
distinguen tres tipos distintos de ROM, las ROM de primer 
plano, las ROM de fondo y las ROM de extensión. El primer 
byte de una cierta ROM (%C000) es decisivo para el tipo de 
ROM. 


> 
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Tras conectar, se comprueba en primer lugar la existencia en 
el CPC de uma ROM externa de primer plamo com la dirección 
O. Para ello se genera um 0UT %DFOO,O. Si el sistema 
operativo determina que algo *se mueve” aqui, se inicializa 
la ROM externa tomando asi el control sobre la máquina. Pero 
en caso de que en el port de expansión no se halle ROM 
externa alguna con esta dirección de selección de ROM, se 
inicializa la ON-Board-ROM, el BASIC como ROM O. Tras esta 
inicialización, el programa en primer plano ha de activar 
las eventualmente existentes ROMs de fondo. Para ello se 
pregunta a cada dirección de selección de ROM, y a partir de 
la dirección de ROM 7, si existe una tal ROM de fondo. En 
caso de que exista, es automáticamente inicializada. 


Si al conectar el ordenador ha tomado el control sobre el 
CPC uma ROM distinta a la ROM de primer plano incorporada, 
le está permitido reservarse una zona de la RAM como memoria 
de trabajo. Puede, para ello, rebajar por ejemplo el limite 
superior de la RAM —es decir el HIMEM-. En la reserva final 
de' memoria para el AMSDOS se desplaza también la memoria 
ocupada por el AMSDOS. En este caso, la RAM de AMSDOS podria 
comenzar, por ejemplo, en +A000. 


Esta flexibilidad del ordenador tiene, por supuesto, su 
precio. Todas las indicaciones de direcciones realizadas en 
lo sucesivo en la zona de a partir de £A700 no pueden verse 
en absoluto. Pueden hallarse, en las circunstancias 
descritas, en cualquier otra zona. Asi que si se desean 
estructurar del modo más +flexible posible programas con 
acceso directo a la RAM de AMSDOS, no se deberia acceder 
jamás ¡indirectamente a las variables. Ha de tomarse el 
comienzo efectivo de la RAM de AMSDOS y acceder a las 
variables mediante el offset al principio de la memoria. 


Lo que suena bastante complicado en la descripción, se 
aclarará en un ejemplo posterior. Pero de momento ha de 
indicarse otra peculiaridad del floppy en relación con la 
RAM de AMSDOS. Y es que no sólo existe la zona ya descrita 
de 1 Ken la que se aloja la mayoria de las variables del 
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sistema. En la zoma de xBE40 a 24BE7F se utilizan otros 64 


bytes para el floppy. Esta zoma noes móvil, permanece 
siempre fija. 


Esta zoma es algo peligrosa. La pila del procesador suele 
ser ocupada en sentido descendente a partir de %C000. En 
programas que no gestionen correctamente dicha pila o stack, 
o bien precisen una pila muy grande —programación recursiva, 
p.ej.-, puede ocurrir que debido a un exceso de PUSH o de 
CALL la pila se haya tan grande que sobrepase la zona de 
memoria del floppy. En el primer caso deberá corregirse el 
programa; en el segundo, cambiar la situación del stack. 
Pasemos a la lista de los 64 bytes, o al menos de lo que 
quedó claro. 


Lista de referencia RAM de sistema OBE40H hasta OBE7FH 


BE40, BE41 Vector a Disk Parameter Header Drive A 

BE42, BE43 Vector a Disk Parameter Block Drive A 

BE44,BE45 tiempo de espera para alcanzar la velocidad de 
régimen del motor del Drive tras MOTOR ON 

BE46,BE47 tiempo de rotación remanente del motor del 
Floppy tras el último acceso 

BE48 valor para bucle de espera al formatear pista 

BE49,BE4A valor para bucle de retardo largo 

BE4B número de bytes en lectura estado de interrup 
ción 

BE4C, BE52 Buffer para bytes de fase de resultados de FDC 

BES3 Dri ve (H5/US) 

BES4 pista 

BESS5 Record 

BES6 Dri ve (HS/US) 

BES57 pista 

BE58 sector 

BES9 número de Records/Pista (máscara de bloque +1) 


BESA Dri ve (HS/US) 
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BESB pista 

BES5SC Record 

BES5D 

BESE leer/escribir sector de Flags 

BESF Flag de motor On/Of+ 

BE60, BE61 Vector a Buffer de 1/0 de Record 

BE62,BE63 Vector a Buffer de 1/0 de Record 

BE64,BE65 memoria intermedia de Stack 

BE66 número de intentos de lectura 

BE67, BE6C Tick Block 

BE67,BE68 Ticker Chain, encadenamiento lista de Ticker 

BE69, BESA Ticker Count, número de Ticker, para poner en 
marcha el Event 

BE6B, BE6C Reload Count 

BE46D, BE73 Event-Block 

BE6D, BE6E Event Chain, encadenamiento de Events 

BE4F Event Count 

BE7O Event Class 

BE71,BE72 dirección de la rutina de Event 

BE73 ROM-Select de la dirección FAR para la rutina 
de Event 

BE74 Buffer para número de pista deseado 

BE7S Buffer para código objeto al FDC 

BE76,BE77 Vector a Buffer de 1/0 de sector 

BE78 Flag para mensajes de error del controlador 
ON/OFF 

BE79-BE7C no utilizado bajo AMSDOS en la versión 
estudiada 

BE7D, BE7E memoria  IY, Lowadress Memory Pool para 
Floppy 

BE7F vector para la manipulación de las rutinas de 
disco (DISC OUT OPEN etc.), normalmente £C9, 
RETURN 

Hay que hacer algunas observaciones ”"specto a estas 

direcciones. Dado que, como ya se dijo, son absolutas, es 

decir, varian su posición en la memoria, pueden 


modificarse 


sus contenidos mediante sencillos POKE. En 


cualquier caso, algunas variables son únicamente modificadas 
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durante la ejecución de rutinas de disco de modo que no 
pueden ser modificadas con pleno sentido desde el BASIC. 
Pero en otros sitios pueden hacerse modificaciones 
esenciales con pocos POKE. 


Asigne, mediante POKE, el valor 1 en la posición de memoria 
%BE45. Introduzca +finaimente la orden CAT. El resultado es 
asombroso. Si tiene paciencia suficiente, habrá obtenido un 
CATALOGO normal y corriente. Lo que si es verdad es que ha 
tardado algo más de lo usual. Los valores en las posiciones 
de memoria 3BE44 y 2£BE45 determinan el tiempo de espera tras 
encender el motor. Normalmente se espera alrededor de un 
segundo; nosotros hemos elevado drásticamente este valor. 
Puede conseguir otra manipulación de tiempos de espera, 
práctica en algunos casos, mediante POKEs en las posiciones 
de memoria %BE46/%BE47. Los valores de estas posiciones 
determinan el tiempo de rotación remanente de los motores de 
floppy tras el último acceso al disco. Puede ocurrir que en 
la lectura y elaboración de datos de un fichero transcurra 
exactamente el tiempo de espera. Para el siguiente acceso se 
vuelve a encender de nuevo el motor, pero a la vez se espera 
de nuevo un segundo para alcanzar la velocidad de régimen. 
Si el tiempo de rotación remanente se alarga de tal modo que 
el motor no se apague entre accesos, puede alcanzarse un 
claro incremento de la velocidad de elaboración de datos. 
Pruébelo. 


También resultan bastante ¡interesantes los bytes de las 
direcciones *+BE4C a %BE52. Aqui se disponen los datos de la 
fase de resultados tras todas las operaciones del FDC. Puede 
interpretarlos usted mismo, lo que resulta esencial en caso 
de desconexión de los mensajes de error del control. 

Hemos llegado por fin a la ya mencionada posición de memoria 
%«BE78. En caso de que le asignemos un valor de %FF, los 
mensajes de error del FDC no aparecerér en pantalla. Ante 
ello debe reaccionar frente a los errores según los bytes de 
la fase de resultados. 

Muy ¡importantes para el acceso a la zona deslizable de RAM 
de 1 K del  AMSDOS resultan las posiciones «BE7D y +%BE7E. 
Aqui se anota la dirección de inicio de la zona de 1 K. 
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Normalmente se halla aqui la dirección KA700. Pero si, por 
algún motivo, varia usted el AMSDOS-RAM-start, hallará en 
estas posiciones la dirección de inicio correcta. 


La posición de memoria XBE7F será de gran interés para los 
más especialistas. Suele hallarse el valor %C9. Este es el 
código de OP del 780 para RETURN. Cada acceso a la rutina 
*patcheada? CAS pasa a través de estes return. Con ello 
tenemos una manera sencilla de modificación tanto antes como 
después de la ejecución de las rutinas. 


De hecho cabria la posibilidad de volver a patchear la 
rutina patcheada CAS, es decir proveerla de las direcciones 
de sus propias rutinas, pero este procedimiento es bastante 
aparatoso. 

Y ahora llegamos a la parte más voluminosa en esencia de la 
RAM del sistema. En las siguientes exposiciones hemos 
supuesto que mo hay ninguna ampliación conmectada. Nos 
referimos asi a las direcciones en la zona a partir de A700. 


Aquellos de ustedes que sean especialistas en CP/M tendrán 
que investigar un poco por su cuenta, la organización de la 
RAM precisada por el BIOS es distinta. Asi, los FDC están en 
las direcciones estándar de CP/M (%5C hasta £7C). Los disc 
parameter header se hallan a partir de *AE58, los disc 
parameter blocks a partir de +ADD8. 


Lista de referencia de la RAM de sistema OA7OOH a OAAS8O0H 


A7OO Drive anunciado 

A7O1 User anunciado 

A7O2 Drive activo 

A703,A704 indicador a Drive activo según Disc Parameter 


Cabecera (a910/a920) 
A7OS Flag, indica si OPEN activo en Drive anunciado 
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A706-A707 


A708-A72B 


A709-A728 
A708 


A709 
A7OA-A714 


A715S 
A716 
A717 
A718 
A719-A728 
A729-A72B 


A72C-A74F 


A750-A799 
A72C 


A72D 
A72E-A738 


A739 
A73A 
A73B 
A73C 


memoria intermedia para Stack-Pointer para 
todas las rutinas lógicas 


File Control Block ampliado para OPENIN 


Buffer de File Control Block (FCB) de OPENIN 
Flag para OPENIN 


$4 = ningún OPENIN activo 
00 = OPENIN en drive A 
01 = OPENIN en drive B 


número de usuario para OPENIN 

nombre de fichero para OPENIN; 8 caracteres de 
nombre de fichero, 3 caracteres de extensión 
00 primera entrada, si noznúmero de extensión 
00 

00 

número de Records de esta extensión 

número de bloques de esta extensión 

número de Records leidos hasta ahora en INPUT 


File Control Block ampliado para OPENOUT 


Buffer de File Control Block (FCB) de OPENOUT 
Flag para OPENOUT 

$f = ningún OPENOUT activo 

00 = OPENQUT en Drive A 

01 = OPENOUT en Drive B 

número de usuario para OPENOUT 

nombre de fichero para OPENOUT 8 caracteres de 
Filename, 

3 de extensión rellenados con espacios 


200 primera entrada, si no,número de extensión 
00 


00 
número de Records de esta extensión 


242 El _ gran libro del floppy para el CPC 


A73D-A74C 
A7AD-A7ZAF 


A750-A799 
A7S5O 
A751-A732 
A753-A754 
A7S35 
A736-A764 
A7S3S5 

A766 

A767 
A768-A769 
A75BA-A7EB 
A7EC ñ 
A76D-A76E 
A76F-A77O 
A771-A794 
A79IS-A797 
A798-A799 
A79IA-A7ES 
A79A 
A79IB-A79C 
A79D-A79E 


A79F 


número de bloques de esta extensión 
número de Records leidos hasta ahora en OUTPUT 


cabecera de fichero OPENIN 


1 = Disc in Char 

2 = Disc in Direct 

Vector al comienzo del Buffer de 2K de 
OPENIN 

Vector al carácter actual en Buffer de 
OPENIN 


número de usuario del fichero, parte consti- 
tuyente de su nombre de fichero 

nombre de +fichero para cabecera, rellenado 
con ceros 

número de bloque 

Last Block 

tipo de fichero para fichero de entrada(INPUT) 
Data Length 

Data Location 

First Block 

Logical Length 

Entry Adress 

User Fields (libre para el usuario) 
contador de 3 bytes número caracteres leidos 
suma de prueba de 2 bytes extendida la cabece- 
ra de fichero OPENIN (a755-a797) 


cabecera de fichero OPENOUT 


i = Disc Out Char 

2 = Disc Out Direct 

Vector al comienzo del Buffer de 2K de 
OPENOUT 

Vector al carácter actual en el Buffer de 
OPENOUT 

número de usuario de fichero, parte de su 
nombre 
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ATAO-A7TAE 


ATAF 
A7BO 
A7B1 
A7B2-A7B3 
A7B4-A7BS 
A7B6 
A7B7-A7B8 
A7B9—A7BA 
A7BD-A7BE 
A7BF-A7CO 
A7C1-A7DE 
A7DF-A7E1 


A7E2-A7E3 


A7TE4—ABES 


A874-ABBA 


A88B-A88D 


A8790-ABAB 


A890, A891 
A892 


nombre de fichero para cabecera, rellenado con 
ceros 

número de bloque 

Last Block 

tipo de fichero para fichero de salida(OUTPUT) 
Data Length 

Data Location 

First Block 

Logical Length 

Entry Adress 

longitud bloque de datos con Disc Out Direct 
dirección de Entry con Disc Out Direct 

User Fields (libre para el usuario) 
contador de 3 bytes número de caracteres 
escritos 

suma de prueba de 2 bytes extendida a la ca- 
becera de fichero OPENOUT (a79f-a7el) 


Buffer Temporal /Record-Buffer 
Este Buffer se usa, 

tanto como Record-Butf+fer 
como para comprobar 

y expandir 

el nombre de fichero dado. 


Buffer para Tape-Vectores (Vectores del 
Cassette) originalmente dipuestos, 
vuelven a ser puestos tras BC77.. 

con el comando ”? ITAPE?” 


dirección Far para vectores de Cassette con 
parches preciso para el RSTA incorporado. 
Indica hCD30 en la ROM 7. 

Extended Disk Parameter Block Drive A 


sTP Records por pista (36) 
BSH Block Shift (3) 
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A893 
A894 
A895, A8B9é 
A897,A898 
A899,A89A 


A89B, A89C 


A89D, A89E 


A89F-ABAS 


AB9F 
ABAñAo 
ABAÍ 
ABAZ2 
ASAS 
ABAS 
ASAS 
ABAG 
ABA7 


ABAS 


ASA9-ABBS 
ABB9-ABCE 


AB8DO-A8E8 


ABE9-A8F8 


BLM Block Mask (7) 

EXM Extend Mask (0) 

DSM número de bloque máximo (170) 

DRM máximo de entradas en directorio i (63) 

ALO,i magnitud de indice (hC000), en binario; 
supone 2 bloques 

CckSs número de entradas a comprobar en mel 
indice (0010) 16 asientos 


OFF Offset de pista (2) 
ocupadas 


parámetros FDC 


FSC primer sector de cada pista (h41) 
PST sectores fisicos por pista (9) 
GPS longitud GAP 3 en R/W de sector 
GPT longitud GAP 3 al formatear pista 
FLB Byte "relleno" al formatear pista 
BPS Bytes/Sector comportan 512 bytes 
RPS número de Records/Sector (4) 


Buffer para pista actual 
buscar Flag de pista O, Read/Write 
recalibrado 


pistas de sistema 


(h2a) 
(hn52) 
(he5) 


Flag, indica si ha de alcanzarse Login en cada 


acceso 
CSA 16 bytes para sumas de prueba 
ALT 22 bytes de Allocation Table 


disposición de bloques Drive A 
Extended Disk Parameter Block Drive B 
disposición como DPB Drive a 

CSA 16 bytes para sumas de prueba 
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ABF9-A9O0E 


A910-AJ1F 
A910-A911 
A912-A913 
A914-A915 
A916-A917 
A918,A919 
A91A,A91B 
A91C,AY1D 
A91E,A91F 
A920-A92F 
A9Z0-A921 
A922-A923 
A924-A925 
A926-A927 
A928,A929 
A92A, A92ZB 
A92C,A92D 
A9ZE, A92F 


A9ZO-AJAF 


ALT 22 bytes de Allocation Table (Tabla de 
asignación) disposición de bloques Drive B 


Disk Parameter Header Drive A 


XLT factor Skew de conversión de tabla (no 
utilizado) 

TRACK memoria BIOS pista actual. 
utilizado por el AMSDOS 

como DIRNUM 

SECTOR memoria BIOS para sector actual 

DIRNUM memoria BIOS para número DIR actual 
DIRBUF puntero a 1/0 Buffer de 128 bytes(a930) 


Cuidado, es 


DBP puntero a DBP Drive A (a890) 

Ccsv puntero a memoria para la formación de 
la suma de prueba (a8a9) 

ALV puntero a tabla de disposición (a8b9) 


Disk Parameter Header Drive B 


XLT factor Skew de conversión de tabla (no 
utilizado) 

TRACK memoria BIOS pista actual. 
utilizado por el AMSDOS 

como DIRNUM 

SECTOR memoria BIOS para sector actual 

DIRNUM memoria BIOS para número DIR actual 
DIRBUF puntero a 1/0 Buffer de 128 bytes(a930) 


Cuidado, es 


DBP puntero a DBP Drive B (a8d0) 

CcSsv puntero a memoria para la formación de 
la suma de prueba (a8a?) 

ALVY puntero a tabla de disposición (a8f9) 


DIRREC Buffer de 128 bytes para un Record de 
directorio. 
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Transferido aqui desde 
el sector DIR 


A9BO-ABAF SECBUF Buffer para la transferencia fisica de 
datos 
del y hacia el Floppy. 


Seguramente estará usted tentado de comprobar los efectos de 
la manipulación de algunas posiciones de memoria. Bueno, que 
se sepa no puede estropearse por ello el ordenador. En 
cual quier caso, deberia evitar realizar sus primeros 
intentos con su disco preferido insertado y no protegido 
frente a escritura. Una vez borrados los datos en el disco 
resulta demasiado tarde para el largamente postergado 
backup. 


Si observamos con detalle la zona de memoria, puede 
distinguirse claramente la frontera entre distintas zonas 
individuales. Hemos denominado estas zonas con nombres que 
no serán conocidos para todos los lectores. Hemos tomado 
estos conceptos del CP/M dado que muchas zonas de datos son 
idénticas en sus funciones a aquellas en el CP/M. Las zonas 
Disk Parameter Header y Disk Parameter Block están escritas 
(casi) exactamente igual en el CP/M. Todo ordenador con CP/M 
tiene DPBs y DPHs. 


También se utilizan en CP/M los ñFDCs, los File Control 
Blocks. En cualquier caso, algunas zonas han sido ampliadas 
en el AMSDOS. Un DBP de CP/M estándar contiene únicamente 
los 15 bytes STP hasta OFF, las ampliaciones son especificas 
del AMSDOS y mo pueden ser traducibles al CP/M de otros 
ordenadores; de hecho ni siquiera al CP/M del CPC. También 
son especificos del AMSDOS los Fileheader para OPENOUT y 
OPENIN. 
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4.2 El listado de la ROM del AMSDOS 


En las páginas siguientes no hallará ningún listado completo 
de ROM. En lugar de ello, ”*"sólo””? se imprimen los 
comentarios a las distintas órdenes, sin que dispongan, 
posiblemente, de sentido inmediato. Pero en unión con un 
programa monitor, O bien un desensamblador, puede ampliar 
sin más nuestros comentarios incorporando los mnemónicos. 
Dado que está dispuesto y deseoso de manejar con soltura un 


sistema operativo, estamos seguros de que estos 
” comentarios” a nuestros comentarios no le resultarán 
pesados. 


Como ya se advirtió, el AMSDOS no ocupa siquiera la mitad de 
los 16 K disponibles de la ROM. 8 K completos se ocupan con 
partes del LOGO suministrado con el Floppy. Ello reduce a la 
mitad la zona disponible. 


Esta zona de LOGO no se imprime en el listado por varios 
motivos. En primer lugar tiene usted en sus manos un libro 
sobre el Floppy y no sobre LOGO. Por otro lado, la parte de 
LOGO de la ROM sólo es una exigua porción del intérprete 
LOGO total. Los 32 K de este lenguaje de programación, muy 
interesante por otra parte, los hallará en el disco de 
sistema del CPC. Si imprimiéramos y comentáramos la parte de 
LOGO de la ROM, serviria de bien poco por ser una porción 
del intérprete completo. 


Pero ni siquiera los 8 K restantes son completamente 
ocupados por el AMSDOS. Los 1024 bytes en la zona de *«DCOO a 
£DFFF no se usan en absoluto. Posiblemente exista esta zona 
para futuras ampliaciones del AMSDOS. Nos quedan ya sólo 7 
K, de los que tampoco dispone totalmente el AMSDOS. También 
se integran en esta zona partes del CP/M. Para ello utilizan 
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CP/M y  AMSDOS muchas rutinas de la ROM de forma conjunta, 
mientras que otras son utilizadas de forma exclusiva por el 
AMSDOS o por el CPM. Se hallan asi incorporados en la ROM 
dos programas completos para dos interfaces serie, que 
pueden ser asignados bajo CP/M a los distintos dispositivos 
de muy diversas formas a través del byte de 1/0. 


Un vistazo al listado revela que, tras restar todas las 
zonas de memoria exclusivamente utilizadas por el CP/M, 
quedan apenas 6 K para el AMSDOS. Pero 6 K de los que entran 
pocos en un kilo. Véalo usted mismo. 
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xx x * Prefijo para ROM de CP/M 


cooo ROM type, background ROM 
coo1 ROM mark number 

co02 ROM version number 

Cc003 ROM modification level 


xx ox £ Dirección de la tabla de comandos 


coo04 

xx x %£ Bloque de saltos a órdenes AMSDOS 
CO006 CPM ROM 

co009 cpm 

cooc DISC 

CcooF DISCIN 

co12 DISCOUT 

co15 TAPE 

co18 TAPEIN 

Co1B TAPEOUT 

Cco1E Az 

co21 B: 

Cco24 DRIVE 

co027 USER 

Cco2A DIR 

Cco2D ERA 

cozo REN 

xx % % Bloque de saltos a órdenes del controlador de disco 
C033 “81 Mensajes de error enable/disable 
Co36 82 Indicar datos unidad disco 

Co39 283 Determinar formato disco 

co3c 584 Leer sector 

CO3F 2585 Escribir sector 

co42 86 Formatear pista 

Cco45 287 Buscar pista 

Cco048 88 Determinar estado unidad discos 
Co4B 89 Fijar número intentos lectura 


Xx XxX x x Bloque de saltos introducción en “P/M 
Co4E 
cos1 


xx x % Bloque de saltos rutinas de 1/0 serie para CP/M 


Ccos54 Inicialización completa SIO % 8253 
Cco57 

COSA Chan. A buffer RX lleno? 

CoS5D Chan. A recoger un carácter 

co60 Chan. A buffer TX lleno? 

C063 Chan. A enviar un carácter 

CO66 Chan. B buffer RX lleno? 

Cco0459 Chan. B recoger un carácter 

co6c Chan. B buffer TX lleno? 

Co6F Chan. B enviar un carácter 
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xxx %£ Tabla de órdenes DOS 


Cco72 
COB3 
xx * £ Ordenes controlador de disco 
COB46 
COBF Indicativo fin de la tabla 


Xx %X x %£ Rescatar vector de interrupción £ dirección de port GA 
coco Vector INT (RST7) 


coc3 anotar en RAM 

Cocó Código objeto JMP 

coce para handler de CALL 

CocB 

cocc 

CcocF Ofrecer INT para uso 

CcoDo del juego alternativo de registros 

CoDi Rescatar GA dirección de port y configuración de la ROM 
CoD5 Conmutar juego de registros a posición anterior 
COD6 

CoD9 

.,:x1%1.- 

CODB 

COE8S para utilizar el antiguo juego de registros 

COE9 

COEA 

COEB Volver a tomar dirección de port GA y configuración de ROM 
COEF Borrar carry 

coFo 

CcoFi1 

coF2 

CcoFS Dirección del salto en AD33 

core Volver a liberar interrupción 

CoF9 

xx £ £ Handler *CALL AD33*, se conserva juego antiguo registros 
COFA Ofrecer interrupciones para 

COFB trabajar con el juego 

CoFC de registros alternativo 

COFD Anotar hl 

c1o0o Dirección de return a hl 

c10o1 Almacenar puntero de la pila (stackpointer) 

cio5 e inicializar todos los 

c108 registros en el stack inicializado 

c109 

C10B 

ci0D (Dirección de port gate array) 

c111 

c112 Tomar dirección tras ?CALL AD33” y efectuar CALL 
c115 podria volver a ser aceptado 

Cci16 Variar registros 
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Se ha modificado eventualmente 
Reorientar vector de INT 


Recoger registros 


hl1 no fue objeto de PUSH 


Conmutar al juego de registros std. 
Restaurar el antiguo stackpointer 


Rutina deseada ejecutada 


x % % *% Handler ”CALL AD33*,no se rescata juego antiguo registros 


c132 
c133 
Cc134 
C135 
C136 
C13A 
C13D 
c140 
Cc141 
Cc142 
c145 
Cc148 
C149 
C14D 
C14E 


Ofrecer INT 
Juego de registros alternativo 


Dirección de retorno del stack 

Almacenar stackpointer 

Inicializar stack 

Tomar dirección tras *CALL AD33” y efectuar JP 
Podria volver a ser aceptado 

Variar registros 

Reorientar vector de INT 


Conmutar juego de registros std. 
Restaurar el antiguo stackpointer 


rutina deseada ejecutada 


Xx xk x x JP (salto) a la dirección tras *CALL AD33” 


Cc14F 
Cc153 
Cc157 
C15B 


(system interrupt vector) 
Orientar vector de INT 

Dirección base para disc-RAM 
Secuencia .de bytes tras CALL AD33 
recoger en de 


al stack 


y saltar mediante RET 


Salto al vector de INT 


Anotar hl 
Dirección de RET a hl 


Incrementar en dos, o sea a dirección dada 


Intercambiar con dirección de RET 
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Cc170 Valor original al stack 
Cci171 Restaurar hl 
C174 


xx x *x Anotar vector de INT del sistema, JP (DE) 
C177 
C17E 


xx x* * Bloque de salto BIOS, en RAM bajo CP/M a partir de OADOOH 
Cc17F COLD BOOT 


c182 WARM BOOT 

ci185 CONSOLE STATUS 
cis8a CONSOLE INPUT 
C18B CONSOLE OUTPUT 
C18E PRINTER OUTPUT 
c191 PUNCHER 

C194 READER 

c197 TRACK O 

C19A SELECT DRIVE 
C19D SELECT TRACK 
ciAo SELECT SECTOR 
c1A3 INSTALL BUFFER 
CiA6 READ SECTOR 
C1A9 WRITE SECTOR 
ciAc PRINTER STATUS 
C1AF TRADUCIR NUMERO DE SECTOR 


xx x x CPM COLD BOOT 


C1B2 KL CURR SELECTION 

CiB5 ROM selección 

C1B6 Dirección de entry point 

C1B9 Mc START PROGRAM 

* xx x CPM ROM 

C1BC 

CiBE KL CURR SELECTION 

c1ci Prueba de nulidad dirección ROM select 
c1c2 => LK 1 abierto a contr. board , CP/M 
Cc1C4 Dirección himem 

C1C6 Dirección lomem 

c1c7 h1 = himem 

C1CA Rebajado en h0400 

C1CB Anotar nueva himem 

cicc 

C1CD 

C1CE iy = himem + 1 

Cc1DOo Inicializar FDC y event 

C1D3 Patch de vectores de cassette 
C1D6 Transferir los nuevos 

Cc1D7 valores para lomem e 


C1D8 himem a KL START PROGRAM 
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C1DA Indicativo de inicialización OK 
C1DB 

xXx *x *£ ENTRY arranque en frio de CP/M 

ciDpc Inicializar stack 

C1DF 

C1E6 

C1E9 Borra (de) hasta (de+bc) 

C1EC 

C1EF 

CciFO Fijación estándar de IO-byte 

C1F2 

C1FS Drive y user 

C1F6 

Cci1F9 Tabla de salto de comandos del controlador 81-189 
ciFc Copiar a BE8O 

C1FF En total h3F bytes 

c202 Transferir 

c204 Salvar vector INT % dirección GA de port 
c207 Inicializar FDC y event 

C20A Número de sector 

c20c Track y drive 

c20F Dirección del buffer 

c212 Leer sector 

c215 => sector leido vacio? 

c218 Apareció error 

Cc21A 

C21E 

c221 Vector INT a C163. JP(DE) 

xx x % Error en la lectura del sector de BOOT 
C224 Msg. 15 ”*Failed to load Boot sector?” 
C226 Preguntar ”CHAN., IGN. or RETRY” 
c229 


xx £ £ Cargar CP/M CCP y BDOS de disco, Boot en caliente 
C22B 


C22E 

C231 b=contador de sector, c=número de sector 
C234 Sector y drive 

C237 Anotar dirección del buffer 

Cc238 Leer cifra deseada de sectores 

C23B Comienzo buffer de nuevo a hl 

c23c Comprueba si el sector leido está vacio 
C23F Apareció error 

C241 

C24B 

c24c Longitud de sector 

C24F 

c251 Dirección de buffer 

Cc252 =contador de sector, c=número de sector 
Cc255 Sector y drive 


c258 Leer número deseado de sectores 
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C25B Apareció error 

C25D 

C266 

C267 Código objeto para JP 

C269 

ec265c BDOS-entry, 8FOO 

c26F JP-code 

Cc272 

C275 

C276 BDOS-entry, ADOO 

Cc279 Tabla de los vectores CP/M 

c27C 51 bytes de longitud 

Cc27F hacia ADOO 

c281 Usuario y drive 

C284 

Cc285 Desenmascarar drive 

c287 Drive 001? 

c289 Si es001=> 

C28B En caso contrario poner a O 

c28D 

C28E 

c28F Vector INT a C163. JP (de) 

Xx x x Error en la carga de CP/M 

c292 Msg. 14 *Failed to load CP/M” 

C294 Preguntar *CHAN., IGN. or RETRY?” 
c297 WARM BODT 

* x * Xcarga sectores corrientes, núm. b, sect. c, pista d 
Cc299 Cargar sector 

c29Cc Apareció error 

C29D Número de sector al acumulador 

C29E Sector siguiente 

c29F El último sector fue el número h49 7? 
C2A1 => no fue el h49 

C2A3 Sector h41 

C2A5 A pista siguiente 

C2A6 Incrementar indicador buffer en 2 pages 
C2A7 

c2A8 Leidos todos lo sectores ? 

C2AA Indicativo todo OK 

C2AB 

*X kx x *x comprueba si el sector leido está vacio 
Cc2AC Dirección del buffer 

C2AD 512 bytes 

C2BO Primer carácter del buffer al acumulador 
C2B1 indicador buffer) 

C2B2 Incrementar indicador 

C2B3 Indicativo OK 


C2B4 Si distinto, entonces => 
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C2B6 Bucle sobre 256 bytes 
C2B8 Por dos = un sector 

C2B9 

C2BB Apagar carry 

C2BC repetir indicador buffer 
C2BD 

XxX Xx x % WARM BOOT 

C2BE > JP C22B” 

c2Cc1 

Xx k x x CONSOLE INPUT 

c203 (h1)=> consola (teclado) en coordinación 
C2C6 


Xx Xx *x x CONSOLE OUTPUT 
c2c8 (h1)=> Coordinación: consola out 
C2CB 


XxX x x *x PRINTER STATUS 


C2CD (h1)=> Coordinación list device status 
C2DO 

X* *x *x * PRINTER OUTPUT 

E2D2 (h1)=> Coordinación list device output 
C2D5 


xX xk *x * PUNCHER 


C2D7 (h1)=> Coordinación puncher 

C2DA 

xx x x READER 

Cc2DC (h1)=> Coordinación reader 

C2DF 

Xx * x * CONSOLE STATUS 

C2E1 (h1)=> Coordinación console status 
C2E4 > JP C46A”* C2DA Coordinación a través de I1/O-byte 
C2E7 

x Y xXx %* BUSCAR TRACK O 

C2E9 "JP ESiF* 

C2EC 

c2F1 

Xx Xx x xXx SELECT DRIVE 

c2F2 "JP C4FO? 

C2F5 


XxX kx *x * READ SECTOR 
C2F7 > JP C54C 
C2FA 
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Xx xXx Xx % WRITE SECTOR 
c2rFc > JP C52E” 
C2FF 


xxxx% 
Cc3o1 
C312 


x x x * Comprobar estado teclado, carácter disponible? 
Cc313 


C31A 

C31B TXT CURSOR ON 

C31E KM READ CHAR, un carácter de teclado 

c321 Si hay carácter disponible, KM RETURN CHAR 
C324 Offh=> carácter disponible, 00 ningún carácter 
0325 

xx *x $ Console input, recoger un carácter de teclado 
C326 Keyboard modus flag 

C329 

C32A Comprobar flag 

C32B => Keyboard mode ” INPUT” 

C32D Keyboard mode ” INKEY”, KM READ CHAR 

Cc33o0 => no recibir carácter alguno 

C332 

C33D 

RExxx 

C33E Keyboard mode a ” INPUT?” 

C33F 

C347 


x* x * *x Console input, esperar un carácter de teclado 
C348 


Cc34c 

C34D TXT CURSOR ON 

C350 

C352 KM WAIT CHAR, esperar carácter 


xx. x % High speed reader como reader, no implementado 
C355 EOF 
C357 


XxX x Xx x Status CTR como printer, high speed reader como reader 


xxx x High speed puncher como puncher device 


xx xx CRTI-device, dar salida a pantalla a un carácter 
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C35F 
C360 
0363 
C365 
C366 
C369 
C36B 
C36c 
C346F 
0372 
C373 
C376 


TXT CURSOR OFF 


Carácter a salir al acumulador 
TXT OUTPUT 

Carácter vacio (SPACE) 

=> ningún código de control 
TXT GET CURSOR 

TXT VALIDATE 


TXT PLACE CURSOR 
TXT REMOVE CURSOR 


xx £ Line printer status, comprueba si centronics busy 


0379 
c37C 
C37D 
C37E 


MC BUSY PRINTER, carry en caso de busy 
carry en caso de que no busy 
Offh=> no busy, 00 si no busy 


xx Xx Y Line printer output, un carácter a impresora 


C37F 
Cc38o0 
C383 
C384 
C387 


Carácter al acumulador 

MC PRINT CHAR, dar salida 

Envio fructifero de carácter 
Printer busy, comprobar teclado 
Nuevo intento 


xXx Xx % inicializar 1/0 serie (hl1)=> tabla de parámetros 


Cc389 
C38A 


SIO channel A/registro de control 
Memoria para WR-reg. 5, canal A 
Channel reset, inicializa canal A 


SIO channel B/registro de control 

Memoria para WR-reg. 5, canal B 

Channel reset, inicializa canal B 

Modus timer O del 8253 

Byte low para dirección del port timer O 

Fijar velocidad de transferencia de envio del canal A 
Modus timer 1 del 8253 

Byte low para dirección del port timer 1 

Fijar velocidad de transferencia de recepción del canal A 
Modus timer 2 del 8253 

Byte low para dirección del port timer 2 

Fijar vel. transf. de envio y recepción del canal B 


xx % * inicializar generador vel. transf. 82533 (hl)=>valores low-high 


C3AE 
C3B1 
C3B3 
C3B4 
C3BS 


Dirección del port palabra de control:8253 

Dar salida a 8253 de la palabra de control 
Low-byte de dirección del port del timer elegido 
Low-byte del valor del timer 
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C3B6 Cargar en el timer 

C3B8 High-byte del valor del timer 

C3B9 

C3BA Cargar en el timer 

C3BC 

xXx % *£ inicializar canal SIO en (BC) 

C3BD Fijar canal de código objeto en valor anterior 
C3BF Dar salida hacia SIO 

c3c1 Elegir write-register (registro de escritura) 4 
C3C3 

C3c5 Apunte en tabla para 

C3C4 paridad, bytes de paro y clock-mode 

C3c7 dar salida hacia SIO 

C3c9 Elegir write-register 5 

C3CB 

C3CD Apunte en tabla para protocolo y bits/char 
C3CE Anotar bits/char en (de) (ADC6/ADC7) 

C3cF 

C3DO y der salida hacia SIO 

C3D2 Elegir write—-register 3 

C3D4 

C3D6 Valor en tabla para protocolo y bits/char 

C3D7 

C3Dp8g dar salida hacia SIO, parámetro de recepción, RX 
C3DA 

xXx Xx *X canal A, buffer RX lleno? 

C3DB Canal A SIO, registro de control 

C3DE (h1)=> contenido del registro write 5, canal A 
C3E1 


xXx % * canal B, buffer RX lleno? 


C3E3 Canal B SIO, registro de control 
C3E6 (h1)=> contenido del registro write 5, canal B 
C3E9 Registro read O del canal elegido 
C3EB Bit O, carácter RX listo? 

C3EC 

C3ED => existe un carácter 

C3EE Fijar bit DTR 

C3F1 Leer registro read O 

C3F3 Bit O, carácter RX listo”? 

C3F4 

C3FS Fijar bit DTR en valor anterior 


xk xk x kx canal A SIO recoger un carácter 


C3F7 Canal A SIO, registro de control 
C3FA (h1)=> contenido del registro write 5, canal A 
C3FD 


xXx kx X canal B SIO recoger un carácter 
C3FF Canal B SIO, registro de control 
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C402 (h1)=> Contenido del registro write 5, canal B 
C405 Leer registro read O 

C407 Carácter RX disponible? 

c408 => recibir un carácter 

C40A Fijar bit DTR 

C40D Comprobar teclado 

c410 Entrar control Z como fin? 

c412 => volver a fijar bit de DTR, RET 

c414 Leer registro read O 

C416 Carácter RX disponible”? 

C417 => no disponible 

02419 Volver a fijar bit de DTR 

c41c Dirección de port del registro de datos 
C41D Leer carácter recibido 

C41F 


xx kx * Volver a fijar bit de DTR, posibilitar recepción 
c420 Borrar bit 7, es relevante 
0422 


xxx % Fijar bit de DTR, imposibilitar recepción 
C424 Fijar bit 7 


C426 

C427 

Cc428 Registro de Write 5 

C42A elegirlo 

c42C (h1)=> contenido del registro WR 5 
C42D Cegar bit 7 

C42F Según el salto, bit 7 activado/desactivado 
Cc430 Escribir en write-register 5 

C432 

C434 

xx x £ Comprueba si TX-buffer canal A vacio 
C435 SIO canal A, registro de control 

C438 

x x x * Comprueba si TX-buffer canal B vacio 
C43A SIO canal B, registro de control 

C43D Leer registro read O 

C43F Desenmascarar TX-empty-bit 

C441 => buffer no lleno 

C442 Indicativo de buffer no lleno 

C443 

C444 

xx x * Enviar un carácter a través del canal A 
0445 Carácter al que hay que dar salida al acumulador 
C446 SIO canal A, registro de control 


C449 
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xx x *x Enviar un carácter a través del canal B 


C44B Carácter al que hay que dar salida al acumulador 
c44c SIO channel B, registro de control 

C44F Almacenar carácter 

Cc450 Preguntar al teclado 

C453 Buffer de emisión vacio? 

C456 => aún no vacio 

Cc458 . Carácter de nuevo al acumul ador 

C459 Dirección de port del registro de datos 
C45A Escribir carácter en SIO 

c45c 

Xx Xx £ £ Determinar READER-status mediante byte de I/0 
C45D Tabla de READER-status 

C460 

Xx xX £ £ READER-input mediante byte de I/O 

C462 Tabla de READER-inmput 

0465 

x x Xx £ PRINTER-OUTPUT mediante byte de 1/0 

C467 Tabla de PRINTER-output 

x xx £ Determinar 1/0-device con I/0-byte, (h1) =>tabla asignación 
C46A Número de bucles para los cuatro dispositivos 
C46B (h1)=> primera asignación 

c46c I/O-byte, usualmente 281 

C46F 

C470 (b) por I/O-byte hacia la izquierda 

C472 Aislar byte relevante 

C474 ; 

C476 Da offset en tabla de asignación 

C477 Sumar a start 

C478 Dirección de la rutina de 1/0 a de 

C479 

C47B 

C47C Salto indirecto a rutina 1/0 

x xXx x %£ CONSOLE STATUS 

C47D 

C47E JP OC3D8H, carácter SIDO canal A disponible”? 
Cc480 Carácter de teclado disponible? 

c482 READER-status mediante byte de 1/0 

C484 JP OC3E3H, carácter SIO canal B disponible? 
* XxX *x * CONSOLE INPUT 

C486 

Cc487 JP OC3F7H, recoger carácter de SIO canal A 
Cc489 Recoger carácter del teclado 

C48B Leer carácter de READER mediante byte de 1/0 


C48D JP OC3FFH, recoger carácter de SIO canal B 
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Xx x % * CONSOLE OUTPUT 


C48F 

Cc490 JP 0C445H, enviar carácter a través de SIO canal A 
Cc492 Dar salida a pantalla al carácter 

C494 PRINTER-OUTPUT mediante byte de 1/0 

C496 JP 0C44BH, enviar carácter a través de SIO canal B 
xR xx £ PRINTER STATUS 

C498 

C499 JP 0C435H, buffer de envio de canal A vacio? 

C49B No implementado 

C49D Chequea centronics busy ; 

C49F JP 0C43AH, buffer de envio de canal B vacio? 

xXx £ £ PRINTER OUTPUT 

Cc4A1 

C4A2 JP 0C445H, enviar carácter a través de SIO canal A 
C4A4 Dar salida a pantalla al carácter 

C4A6 Da salida a carácter al port de centronics 

Cc4A8 JP 0C44BH, enviar carácter a través de SIO canal B 
xk xx % PUNCHER 

C4AA 

C4AB JP 0C445H, enviar carácter a través de SIO canal A 
C4AD No implementado, RET d 

C4AF JP 0C44BH, enviar carácter a través de SIO canal B 
C4B1 Dar salida a pantalla al carácter 


xXx x Xx % READER Status 


C4B3 

C4B4 JP OC3D8H, carácter SIO canal A disponible”? 
C4B6 No implementado 

C4B8 JP OC3E3H, carácter SIO canal B disponible? 
C4BA Comprueba si existe carácter de teclado 


xXx x x*x READER Leer carácter 


CcA4BC 

C4BD JP OC3F7H, recoger carácter de SIDO canal A 
C4BF No implementado, recoge EOF 

c4c1 JP OC3FFH, recoger carácter de SIO canal B 
C4C3 recoge carácter del teclado 

xXx xx 

Cc4c5 Comprueba si se pulsa CONTROL C 

c4ca ENTER? 

C4CA ==> no ENTER 

C4CB 

caco 

C4CD recoger otro carácter del teclado 

C4DO 


C4D2 
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* x x *x Comprobar si se pulsa CONTROL C 


C4D3 

C4D5 

C4D6 Comprobar estado del teclado 

C4D9 

C4DA => ningón carácter disponible 

C4DC Recoger carácter de teclado 

C4DF Control C? 

C4AE1 => no control C 

C4E3 Mensaje del sistema 14 ..*C 

C4E5 darle salida 

C4E8 Warm boot 

*x xx £ ninguna acción, no se pulsa CONTROL C 

C4EB 

C4EE 

xXx % £ no utilizado 

C4EF 

Xx xXx * SELECT DRIVE 

c4Fo Número de drive al acumulador 

ca4Fi1 sólo puede ser 04d 1 

CAF3 

C4F6 Número de drive demasiado alto 

CAF7 Número de drive válido hasta ahora al acumulador 
Cc4F8 Bit O al carry 

C4F9 Salto, si drive 1 activo hasta ahora 

C4FB Drive deseado a e 

Cc4FC 

CAFE Valor del bloque de parámetros de disco al acumulador 
cs5o1 si es no nulo 

c502 entonces, salto 

C504 

c505 en caso contrario, determinar formato de disco 
c508 

Cc509 

C50A Número de drive al acumulador 

C50B HS/US-butffer 

C50E Offset a disc parameter header drive A 

c511 si se usa drive A, salto 

cs512 

cs14 en caso contrario, offset DHP para drive B 
cs517 hl=h1+iy, hl=> comienzo de tabla de punteros 


xx % £ Apuntar dirección buffer de record 
Cc51A (bc):= record-buftfer 
C51E 
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xx kx Xx buscar pista O 


Cc51F 
c524 
c525 
c528 


(buffer para número de pista) 


xxx £x número de registro al controlador 


0c529 
C52A 
C52D 


(buffer para número de registro 


xxx % Write Record (registro) 


C52D 
Cc530 
c532 
Cc535 
0538 
C53B 
C53E 
C53F 
C540 
0543 
0544 
c545 
Cc548 
C549 
C54B 


Drive, pista, registro de be53h a beSah 


Comprobar si drive, pista y record en be53h = beSah 


=>son iguales 
Determinar sector a partir de número de registro 


Transfiere registro al buffer de sector 
Número de registros 


Sumar offset de sector, escribir sector 
=> error 


Xx x £ * Read Record 


c5s4C 
C54D 
c550 
c553 
C556 
Cc559 


*Rx xx 
C55A 
C55B 
css5c 


Borrar acumulador y 

anotar +1 en máscara de bloque 

Determinar sector a partir de número de registro 
Transferir registro al buffer de registro 


Traducir número de registro 


Transfiere únicamente bc a hl 


xXx *x Xx Leer sector 1D, preguntar por eventuales errores 


C55D 
c560 
Cc562 
Cc565 
C566 
0569 


Registro de estado FDC 

Leer código de sector ID 

Dar salida al acumulador hacia FDC 

Unit select/head select 

Dar salida al acumulador hacia FDC 

Fase de resultados del FDC, drive ready”? 
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x x x *£ Proporciona, del sector ID, el formato de disco 


csec 
C536F 
C571 
0574 
0575 
0577 
C57A 
C57D 
C57E 


Encender motor, sumar tiempo de funcionamiento del contador 


Cargar acumulador con valor bloque parámetros disco 1óh 
es el número actual de pista 

Número de intentos de lectura 

Dirección de la rutina *leer sector ID” 

Buscar pista en d 

NC = error 

Número de sector del FDC en fase de resultados 


xxx *£ 83h proporcionar formateo disco 


c58i 
c58e2 
Cc583 
C586 
c587 
c588e 
Cc58B 
C58E 
c590 
c591 
Cc592 
C594 
0596 
0597 
Cc598 
C59B 
C59D 
cs59F 
c5A2 
C5A3 
C5A4s 
C5A9 
C5ACc 
C5AD 
C5AE 
C5AF 
C5BO 
C5B1 
C5B4 
C5B7 
C5B8 
C5B9 
Cc5Bc 
C5BE 
C5BF 


Contiene el número de sector leido por el FDC 
Borrar acumulador 
Comienzo bloque parámetros disco a hl 


Standart-disc-parameter-block en ROM 
22 bytes 

en disc-parameter-block (DPB) actual 
Inicio de tabla 

Número de sector 

Borrar bits O a 5 

Bit 6 activado? 


en tal caso utilizar tabla de formato estándar 
Inicio DPB de formato de datos, tabla 2 

Bits 6 y 7 activados? 

en tal caso utilizar formato de datos 

Inicio DPB de formato IBM, tabla 1 

Tomar los dos primeros valores de tabla 
transferirlos al disc-parameter-block 


- hl apunta a 0sc-parameter-block + 5 


Número de bloques/disco 
Transferir 

los dos bytes siguientes 

al disc-parameter-block actual 


hl1 apunta a disc-parameter-block + 13 


Transferir los 6 bytes restantes 
al disk-—parameter-—block 
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x* x * £ Valores de tabla para formato IBM 


Cc5co Número de registros/pista, STP 

csc2 Número de bloques/disco, DSM 

C5C4 Número de pistas para el sistema operativo, OFF 

C5C6 Offset de sector 

c5c7 Sectores/pista 

cs5ce Longitud GAP 3 read/write 

Cc5co Longitud GAP 3 formateado 

Xx xXx Xx * Valores de tabla para formato disco de datos 

CS5CA Número de registros/pista, STP 

cscce Número de bloques/disco, - DSM 

C5CcE Número de pistas para el sistema operativo, OFF 

C5DO Offset de sector 

C5Di1 Sectores/pista 

C5D2 Longitud GAP 3 read/write 

C5D3 Longitud GAP 3 formateado 

xxx % La tabla (7 bytes) es copiada en BE44 ... 

C5D4 Tiempo máximo de funcionamiento para motor de discos 
C5D6 Contador de tiempo de funcionamiento para motor de discos 
C5D8 

C5D9 Valores para largos bucles de demora 


xxx xk Tabla (2 bytes) precisa para $82 


C5DB Head unload time para FDC = 32 ms 

C5DCc Head Load time para FDC = 146 ms 

xk xx *X Inicializa DPHs, DPBs, FDC y event 

C5DD Dirección RAM para rutinas del controlador 
C5EO Número de bytes 

C5E3 Borra (de) hasta (de+bc) 

C5E6 Inicializa disc parameter block/header 
C5E9 Desconectar motor de drive 

C5EC Tabla de parámetros de FDC 

CS5EF Inicializar parámetros de drive del FDC 
cs5F2 KL ASK CURR SELECTION 

C5FS Selección de ROM para rutina de event 
C5F6 Clase de event asincrona 

c5F8 Bloque de event 

C5FB Dirección de la rutina de event 

CS5FE KL INIT EVENT 

Có601 

xXx xx 289 fija número de intentos de lectura, número en acumulador 
C603 

C604 Número de intentos de lectura 

C607 


c60c 
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xx xx 782 especificar datos de unidad 


C60D RAM de FDC — +4 

c610 

C613 

C615 Registro de estado del FDC 

có618 OP-code specify drive parameter 

C61A darle salida hacia el FDC 

Có61D Tiempo de espera en milisegundos (12) 
C620 

C624 

C625 Da como resultado hA0 = 12 ms de step rate 
C627 Head unload time a bits 0 a 3 

C628 darle salida hacia el FDC 

C62B. 

c62c Head load time 

C62D darle salida hacia el FDC 

xx 1% % 788 determinar estado unidad 

C63o Rutina determinar estado de unidad 
C633 => apareció algún error 

C634 ' Cargar acumulador con estado de FDC O 
C637 

xXx Xx £ Rutina determinar estado de unidad 

C638 Encender motor, sumar contador para tiempo transcurrido 
C63B El acumulador contiene número de drive 
C63c Sense interrupt status FDC 

C63F Registro de estado del FDC 

C642 OP-code sense drive status 

C644 Dar salida al acumulador hacia el FDC 
C647 Número de drive 

C648 Dar salida al acumulador hacia el FDC 
C64B Leer fase de resultados 


xx % £x 785 escribir sector e=drive, d=pista, c=sector, hl=1/0 buffer 
C64E Escribir sector OP-code 


Cc650 

xxx % 786 formatear pista 

Ccó6s52 Formatear pista OP-code 

C654 Encender motor, sumar contador para tiempo transcurrido 
C657 Número de intentos 

C659 Read/Write/format cont*d 

cé6sc : 

C665 

* xx x 284 leer sector e=drive, d=pista, c=sector, hl=1/0D buffer 
Có666 Encender motor, sumar contador para tiempo transcurrido 
C669 Leer sector OP-code 


C66B 
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xx x *x Read/Write/format cont*d 


C66D 
C670 
Cc671 
C672 
C675 
C676 
C679 


Buffer de I/O de 512 bytes 

OP-code FDC 

Número de sector 

Anotar código objeto y sector deseados 
Número de intentos de lectura 
Programar dirección de FDC 

Buscar pista en d, *”CALL (h1)” 


xx x *x Programar FDC para acción deseada 


C67C 
Co7F 
c682 
C683 


(OP-code FDC y sector deseado) 

Registro de estado del FDC 

OP-code de FDC 

darle salida hacia el FDC 

Head select/unit select, asi como número de drive 
darles salida hacia el FDC 

OP-code salido al acumulador 

Formatear pista? 

Salto en caso de escritura/lectura de sector 


Bytes/sector, de disc-parameter-block al FDC 
Sectores/pista, de disc-parameter-block al FDC 
Longitud de GAP 3, de disc-parameter-block al FDC 


Byte de relleno, valor, en disc-parameter—block hi3 
Fase de ejecución de Read/Write/format 


xx x Xx Llegada a lectura/escritura de un sector 


C6AS 
C6A6 
CóA9 
C6AR 
Có6AD 
C6AE 
CóB1 
Có6B3 
C6B6 
C6B7 
CáBA 
Có6BC 
C6BF 


Número de pista 

Acumulador al FDC 

Número de cabezal (para unidades con dos cabezales) 
Acumulador al FDC 

Número de sector 

Acumulador al FDC 

Bytes/sector 

de disc-parameter-block al FDC 
Número de sector del último sector 
Acumulador al FDC 

Longitud de GAP 3 en Read/Write 

de disc-parameter-block al FDC 
DTL, ha de ser hFF 


xx *x Xx Fase de ejecución de Read/Write/format 


có6c1 
C6C4 
Ccsc5 
ceca 
Cc6co 


Sector de 1/0 de 512 bytes 


Leer estado del FDC, Drive Ready Write Prot? 


Registro de estado 1 FDC 


=> carry OK 
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C6CF 

Có6Do 

xx x *£ Sector de Read/Write, 512 bytes 

Có6D1 

Có6D2 Acumulador al FDC 

Có6DS 

C6D6 Buffer de 1/0 de 512 bytes 

C6D9 Leer sector de OP-code? 

Có6DB en caso de que no, al bucle de escritura 
C6DD al bucle de lectura 

xx Xx * Bucle de lectura, leer hasta que FDC indique fin de sector 
C6DF (bc) al registro de datos del FDC 
C6EOo Leer byte de datos 

Có6E2 Almacenar (h1) en buffer 

C6E3 (bc) al registro de estado del FDC 
C6E4 Incrementar puntero de buffer 

C6ES caco Incrementar byte de estado 
C6E7 Esperar mensaje buyte-ready 

C6EA Fin de ejecución, start result? 
C6EC Recoger siguiente byte 

Có6EE 

3 Xx *£ Bucle de escritura, escribir datos hasta que FDC indique fin 
C6EF (bc) al registro de datos del FDC 
C6FO Recoger byte del buffer 

C6F1 y escribirlo en disco 

C6F3 (bc) al registro de estado del FDC 
Có6F4 Incrementar puntero de buffer 

C6oFS Incrementar byte de estado 

C6F7 Siguiente byte deseado? 

C6FA Fin de execution, start result? 
CóFC Escribir byte siguiente 

Có6FE 

Xx X X X Busca la pista dada en d 

C6FF Número de intentos de lectura 

C702 

C703 Buscar pista 

C706 => pista hallada 

C707 => 10 intentos sin éxito, READ FAIL 
C709 Cantidad de intentos restantes 
C70A 

c7oc Activar flag de recalibrate 

C7OE Pista deseada 

C7OoF Pista 39 

Cc711 Buscar pista 

C714 Pista deseada 


Cc715 Nuevo intento de hallar la pista 


La ROM _ del AMSDOS 269 


xk xxx Fijar flag de recalibrado en recalibrate 


Cc717 

c718 Byte 17 en disc parameter actual 

Cc71A Determinar bloque, fijar flag de recalibrado 
C71D en recalibrate 

C71F 

Cc720 


xx kx * Dar salida a READ FAIL en búsqueda de pista 
0722 

0723 

C724 Drive a c, enviar mensaje, CIR 

0727 

Cc728 Buscar pista en d, CALL (h1) 

C72A 


*xRxx32% 

C72B Buscar pista en d, CALL (h1) 
C72E 

Cc72F 

C730 Sense interrupt status del FDC 
C733 Buscar pista en d, CALL (hl) 
0736 

0737 

0738 Número de pista 

0739 40 pistas 

C73B 

L73F 

C740 Buscar pista en d 

0743 

0744 Buscar pista en d, CALL (hl) 
0747 

0748 

C749 Número de pista 

C74A <>0? 

C74B 

C74E 


xRxxx 

C74F 

C750 Buscar pista en d 
0753 

07534 Buscar pista en d 
0757 

C758 

0759 CALL (h1) 

Cc75c 

C75E 

C73F Buscar pista en d, CALL (h1) 
C761 

0762 
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*xRxxx 787 buscar pista en el registro d 


C763 Encender motor, sumar contador para tiempo transcurrido 
C766 

C768 

C759 Número de intentos de lectura 

Cc76c 

C76D Byte 17, flag de recalibrate 

C76F del disc parameter block actual 

0772 al acumulador 

C773 

C774 => ningún recalibrate 

C776 b:= número de intentos de lectura 

0777 registro de estado del FDC 

C77A Recalibrate pista O 

c77c Dar salida al acumulador hacia el FDC 
C77F Head select/unit select 

C780 Dar salida al acumulador hacia el FDC 
Cc783 Esperar 40 veces 12 milisegundos, 

c785 luego leer estado de interrupción del FDC 
c7es 

C78A Byte 16, DPB actual 

c7ec éste es el número de pista actual 

c78erF borrar 

C791 Byte 17 en disc parameter block 

0792 a -1 

C794 := número de intentos de lectura 

0795 

0796 Número de pista alcanzado 

C797 comparar con el número de pista deseado 
c798 => posición alcanzada 

C79A b:= número de intentos de lectura 

C79B registro de estado del FDC 

C79E Buscar pista de OP-code 

C7AO Dar salida al acumulador hacia el FDC 
C7A3 Head select/unit select 

C7A4 Dar salida al acumulador hacia el FDC 
C7A7 Número de pista deseada 

C7AB Dar salida al acumulador hacia el FDC 
C7AB Restarle número de pista alcanzado 
C7AC Posición alcanzada 

C7AE 

C7BO 

C7B1 Aguardar, luego leer estado de interrupción del FDC 
C7B4 

C7B5 Todo correcto, pista hallada 

C7B7 Nuevo intento, eventualmente con recalibrate 
C7B9 Contador de intentos desbordado? 

C7BA En tal caso manejo de error 

C7BD Sense interrupt status FDC 


c7co Nuevo intento, eventualmente con recalibrate 
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A 5 —— 


Xx Xx kX La pista fue hallada 
c7C2 

C7C4 

c7cs Indicativo de todo OK 
C7C6 


xXx *X x Espera (acum. * 12)+16 ms lee estado de interrupción del FDC 
c7C7 


c7C8 

C7CB Bucle de espera 

C7CE 

C7CF 

C7DO Bucle de, espera finalizado? 

C7D2 

C7DS Bucle de espera 

C7D8 OP-code sense interrupt status 

C7DA Dar salida al acumulador hacia el FDC 

C7DD Leer estado de interrupción del FDC, drive READY? 
X xXx x *x Espera acum.X1i ms 

C7E0 El acumulador es el indice del bucle 

C7El1 Valor de demora 

C7EZ Decrementar acumulador hasta llegar a cero 
C7E4 Aprox. 1 milisegundo 

C7ES5 Decrementar indice del bucle 

C7E7 

C7E8 Eventualmente nuevo bucle 

C7EA 

xXx xx 

C7ERB Buffer de HS/US 

C7EE Número de drive hacia e 

C7EF Valor h03 de disc parameter block, máscara de bloque 
Cc7F1 cargarla en acumulador 

C7F4 Incrementar máscara de bloque 

C7FS 

Cc7F8 y anotarla 

C7F9 Transferir drive, pista y número de registro 
C7FA de hBES3 hacia hBESA 

C7FD 

C7FF 

xk kx x 

ca00 

C804 

c807 Buffer de HS/US 

c8oA Tres bytes, drive, pista y número de registro 
caoc (h1)=(de)? 

csaoD 

CBoE ==> distinto, error 

ca1o 

ca11 


ca12 Siguiente byte 
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ca14 Indicativo OK 

ca15 

*Rxxx 

caló 

Cca1A 

xx x *£ Espacio para este registro? En caso contrario siguiente pista 
Cce1B 

cs20 

ce21 Número de drive hacia e 

ca22 

c823 Número de registro en la pista 

ce24 Incrementar número de registro 

Cc825 Byte bajo (low) de registros/pista 
Cca826 de disc parameter block al acumulador 
ca29 Alcanzado número de registro máximo? 
Ce2A => aún no alcanzado 

cs2c Poner a cero número de registro en la pista 
ce2E hl = BESB, número de pista 

ca2zrF Incrementar número de pista 

c83o 

cse31 

Kxxx 

c832 

ca38 

C83B Reparar stack para caso de error 
ce3c => error 

C83D Ningún error, bc de nuevo al stack 
C83E Comprueba fin de sector 

C841 

Cca842 => record ya en buffer de sector 
C844 Número de sector a Cc, número de buffer a hl 
C847 Leer sector 

Ce4A Manipular según eventual error 

C84B hFF = ningún error en la lectura de sector 
ca4c : 

ceso 

*R1Gxxm2x 

ces1 

cas3 

*xrxx 

C854 Flag de leer sector OK 

cea57 

ces58 

csa59 HS/US buffer 

cesc 

Ces5F Número de drive a e 


caso Cargar acumulador con antiguo número de drive 
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ca61 
ca652 
ca63 
Ca64 
ca465 
C866 
C867 
case 
Ca6B 
cs6c 
Ca6D 
CB6E 


x 


Son ambos iguales”? 

En caso negativo, RET 

Antiguo número de pista 

Nuevo número de pista 

Son ambos iguales? 

En caso negativo, volver 
Desbordamiento al escribir registro”? 


En caso de desbordamiento, volver 


Todo OK 


Borrar flag de leer sector OK 


(h1)=> write sector flag 


=> flag nulo, no escribir 


Calcular número efectivo de sector 
2853 escribir sector 


HS/US buffer 


Valor de head select/unit select hacia e 


Determina número de sector, comprueba overflow 


xXx *x *x determina número de sector, comprueba overflow 


ca92 
c893 
Cc894 
Cc896 
Cca899 
c89A 
C89B 
caao 


(número de registro) 


Cargar acumulador con número de registros/sector 


Cargar acumulador con número de registro 


* *x kx *x calcular número efectivo de sector 


caA2 
CBA6 
casas 
CBAB 


Números de drive y pista hacia e y d 

Cargar acumulador con disc parameter block hoF 
Primer número de sector de una pista 

(número de sector deseado 0-8) 
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CB8AE Da el número del sector a leer 

CaAF Número del sector a c 

CcaBo Determinar dirección buffer de sector 
C8B3 hl1=h1+iy 

xx Xx X transferir registro a buffer de sector para escritura 
C8B4 Rescatar todos los registros 

C8B7 

C8B9 

CB8BA Escribir indicativo de sector 

caBc Flag de Read/Write sector 

C8BF Proporcionar bc, de y hl 

cac2 KL LDIR, transferir registro al sector 
cecs Restaurar todos los registros 


xx Xx Xx transferir record del buffer de sector al de registro 
cs8c7 Rescatar todos los registros 

caca 

C8cA 

Cc8cB Proporcionar bc, de y hl 

C8acE 

csacF Transferir del buffer de sector al buffer de registro 
capi Restaurar todos los registros 

CcaDp2 

Cc8D5 


xxx % de := comienzo de registro en buffer de: sector 
C8D46 HS/US buffer 


C8D9 Head select/unit select a e 

C8DA Cargar acumulador con valor hi5 de DPB 
cepc Número de registros por sector 

C8DF 

C8E1 

C8E2 (número de registro) 

C8E3 Longitud de registro 128 bytes 

CB8E6 Offset al buffer de registro 

C8E9 Corrección precisa 

CBEA Calcula la dirección del siguiente 
CBEB registro en el buffer de sector 
C8Ec 

CBEE Resultado a hl 

C8EF de=de-iy, de=> siguiente registro 
cerF2 Dirección de buffer de registro a hl 
CarF5 Longitud de registro 128 bytes a bc 
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2% % £ Leer registro de estado del FDC, comprueba si DRIVE READY 


CarF9 Leer fase de resultados 

cerc 2=> sin aparición de errores 

COFD registro de estado 1 del FDC 

c900 Disco protegido frente a escritura? 
c902 => no protegido 

c903 Mensaje de error 12, Disc is missing 
c905 

£ % £ £ Leer registro de estado del FDC, comprueba si DRIVE READY 
c807 Fase de resultados FDC, drive READY? 
C8oA :=> todo 0O.K. 

C80B 

csoc registro de estado 1 del FDC 

cooF Disco protegido frente a escritura? 
c911 => no protegido 

c912 Mensaje de error 12, Disc is write prot. 
c914 Drive a c, enviar mensaje, CIR 

Cc917 ” Ignore” 

c918 *Cancel” => fin 

C91B "Retry” 


xXx %% Lleva al buffer los bytes de la fase de resultados 


. 


ce1c 


ce1D 

C91E Número de bytes leidos 

Cc920 Dirección buffer fase de resultados 

Cc923 

C924 Registro de estado del FDC a bc 

C926 Esperar a 

Cc928 byte de estado rear y 

C92A Dirección del registro de datos del FDC 

C92B Registro de estado de interrupción 

C92D Dirección del registro de estado del-FDC a bc 
C92E Almacenar en (hl) 

c92F 

Cc930 Contador de número de bytes recogidos 

C931 

C933 Bucle corto 

C934 

C936 Leer byte de estado 

c938 Bit de FDC busy 

C9O3A Comando aún no finalizado 

Cc93c 

C93D 

C93E Aislar código de interrupción, bits 6%7 de SRO 
C940 

C941 Anotar número de bytes de la fase de resultados 
C942 
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0944 Apareció error! 
C945 
C946 Final libre de errores 


xx % £ Sense interrupt status FDC 


C947 

c948 Registro de estado del FDC 

C94B OP-code sense interrupt status 

C94D Dar salida al acumulador hacia FDC 
Cc950 Leer fase de resultados del FDC 
0953 Mensaje ”? INVALID COMMAND” ? 

Cc955 En caso contrario intentar de nuevo 
C957 

c958 


xx Xx Xx Cargar acumulador con byte de DPB y darle salida 
Cc959 Cargar acumulador con valor de DPB (acumulador ) 


x x x * Comprueba FDC, da salida al acumulador hacia FDC 


co9sc Valor a sacar dos veces al stack 

C95D 

COSE Bit 7, comprobar request for master 
Cc960 

Cco9b61 Esperar hasta que se reclame otro byte 
0963 Bit 6, sentido de los datos al FDC 
C964 Prueba de entrada o salida 

C966 No enviar ningún byte al controlador, 
C967 El FDC quiere enviar un byte al procesador 
Cc968 

xxx x El acumulador es transferido al FDC 
C969 Valor a sacar de stack 

CI6A Registro de datos del FDC a bc 

C94B Dar salida al byte hacia FDC 

C96D Registro de estado del FDC a bc 

C96E 

Cc970 Bucle corto 

c971 Decrementar acumulador de 5 a 0 

Cc972 

C974 Restaurar valor en el acumulador 
C975 


* *x x x Encender motor, manipular stack, (hl1) a buffer de 1/0 
C976 Memoria intermedia 


c979 Recoger del stack dirección de RETURN 
C97A Rescatar bc y de 

C97B 

c97c Anotar puntero de stack 

c980 Dirección de RETURN de nuevo al stack 
co81 

Cc984 RETURN de nuevo a hl, C9AD al stack 
c985 Dirección de RETURN definitiva al stack 


C986 Rescatar de, bc y af, un RET a 
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c987 esta rutina lleva a C9AD! 

c988e Un poco enrevesado, no es asi? 
c989 Del Ticker 

c98c Motor Flag 

c9eF comprobar 

Cc990 Motor en funcionamiento 

c992 Dirección de port de control del motor 
c995 

Cc997 Encender motor 

c999 Número de pasos 

C99D Llamar al add Ticker, tiempo máximo funcionamiento motor 
C9AO Motor Flag 

C9IA3 comprobar 

C9Asr Esperar a que flag de motor <> O 
C9A6 af, bc y de otra vez del stack 
C9A7 

c9A8 

C9A9 ' (h1) apunta al buffer de 1/0 
c9Ac El siguiente RET conduce a C9AD!' 
111% 

C9AD Anotado aqui ante C97C 

C9B1 

C9B2 Námero de pasos 

C9B6 Llamar al add Ticker 

C9B9 

COBA bc, de y hl fueron sometidos a PUSH ante C979 
C9BB hacia C97B 

C9BC 

C9CA 

C9CB (h1) => OBE4B 

c9cc 

11% 

C9CD Dirección de Tick Block 

Cc9DO Reload count 

C9D3 KL ADD TICKER 

xx Xx * Rutina del contador de tiempo 

C9D6 Motor Flag 

C9D9 es 0 o bien hFF 

CODA deviene hFF o bien O 

C9DB Almacenar 

co9Dc en caso de Motor Flag nulo 

C9DD => motor rodando 

C9DF En caso contrario dirección de Tick Block 


C9E2 KL DEL TICKER, desenclavar contador del motor 
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xR xxx 

C9ES 

C9E8 

COEA Port de motor 

C9ED Volver a fijar flip-flop de motor, apagar motor 
COEF 

CoFO Borrar Flag de motor 

C9F3 

xx £ *£ Disponer disc parameter header y DP blocks 
C9F4 Offset para DPH drive B 

C9F7 Offset para DPB drive B 

COFA Inicializar DPH y DPB drive B 

C9FD Offset para DPH drive A 

cAoo Offset para DPB drive A 

CcAo3 de=de+iy, comienzo del DPB 

CAO06 Anotar dirección 

CADA y anotar en stack 

CAOB h1=h1+iy, comienzo del DPH 

CAOE Anotar dirección 

CcA11 y anotar en stack 

cAa12 Dirección del DPB en estándar 

cA15 Transferir 25 bytes 

cA18 a la dirección adecuada 

CAlA Anotar en bc comienzo de la zona de suma de prueba 
CA1B 

ca1c Comienzo del DPH, éste es XLT 

CA1D Eventual conversión del factor SKEW 
CAa1F No se utiliza, por tanto, O 

cAa2o 

CcA22 

CA25 (h1)=> DIRBUF 

CA26 Offset de los 128 bytes para el buffer de DIR 
CA29 de=de+iy, dirección del buffer de DIR 
cA2c apuntarla en DIRBUF 

CA2D 

cAa2F 

cA3o Comienzo de los DPBs 

CA31 apuntarlo en la cabecera 

CA32 

CA33 

CAZA (h1)=> CSV, vector de suma de prueba 
CA3S (bc)=> dirección del área de suma de prueba 
CA36 apuntar en la cabecera (header) 

CA37 

CcA38 (h1)=> ALV, Allocation vector 

CA39 almacenar temporalmente en de 


CAZA Offset entre área de suma de prueba y 
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CA3D Allocation Area 

CAE (h1)=> ALV 

CA3F apuntar área de asignación en el header 
caso 

CA42 

xx % %x Standart DPB, Disc Parameter Block 

CA43 STP registros por pista 

CAs45 BSH block-shi+ft 

CA46 BLM block mask 

CA47 EXM exent mask 

casa DSM número de bloques libres - 1 

CA49 DRM número de entradas en DIR — 1 

CA4B ALO disposición del directorio 

CA4AD CKS número de entradas a comprobar 

CA4F OFF offset de pista para pistas de sistema 
xxx %£ Extensiones de los BPBs, no existentes en CP/M estándar 
CA4B Offset de registro para reconocimiento de formato 
CAs3 Número de sectores por pista 

CAS3 Longitud de GAP3 en Read/Write 

CAS3 Longitud de GAP3 en formateo 

CASs3 Byte de relleno en formateo 

CAS3 Bytes/sector para FDC, supone 512 bytes 
CAS3 Número de registros por sector 

CAS3 Tres memorias intermedias 

CAS3 

CAS3 


xx xX *x Cargar acumulador con valor DPB (hA890+ (dri vexh40)+acum. ) 
CcAst 


CASD 

cAso Acum.=(tabla+ (drivexh40)+acum. ) 

CA61 

CA62 

xxx x hl = pointer a DPB actual + acum. 

CA63 

CA654 Indicador a DPB drive O 

CA67 Head select/unit select - 1 

casa Offset de los DPBs drive O y 1 

CA6B Salto si drive O actual 

CA6D Determinar comienzo tabla drive 1 

CAGE Acumulador apunta a byte deseado 

CASF d=0, e=byte deseado 

CA7O 

CA71 

xxx % 781 Mensajes de error del disc controller On/Off 
CA72 Anotar antiguo valor en L 

CA7S Anotar nuevo valor 

CA78 Transferir antiguo valor al acumulador 


CA79 
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xXx % x Si enable dar salida a mensaje de error 


CAZA Número de error al acumulador 

CA7B Flag para mensajes de error 

CA7E Comprobar 

CA7F => no permitida la salida 

casi Repetir número de error 

cA82 Número de drive para salida a c 

CA83 Dar salida a mensaje de sistema, C, I or R 


XxX xx x Fin de salida no permitida 


CA846 

CA87 Borrar acumulador y flags 
case 

*X k Xx £ Hasta CA9O mo utilizado 
cA89 

CAsrF 

Xx xx BC = BC + IY 

cago 

cA92 iy a hl, hl a stack 
CA93 Sumar bc y hl 

CA94 Resultado a bc 

CcA9S 

CA96 Restaurar hl 

CA97 

Xx xx Xx DE = DE + I1Y 

cA98e 

CASA iy ahl, hl a stack 
CA9B Sumar de y hl 

cA9c Resultado a de 

CA7D Restaurar hl 

CAJE 

xXx xx HL = HL + 1Y 

CA9F 

CAAO 

CAAZ2Z iy a de 

CAA3 Sumar de y hl 

CAAA Restaurar hl 

CAAS 

* x *x * Convertir minúsculas en mayúsculas 
CAAG "a? o mayor? 

canas 

CAA9 2? O menor? 

CAAB 

CcAAC Convertir en mayúscula 


CAAE 
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xx % % Borrar memoria desde (de) hasta (de)+(bc) 
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CAAF Borrar acumulador 

CABO Borrar memoria 

CAB1 Dirección siguiente 

CAB2 Decrementar indice 

CAB3 Comprobar si bc = O 

CAB4 

CABS Borra (de) hasta (de+bc) 
CAB7 

xx %£ % Sacar error hacia A, luego comprobar ”IGN, RET, CHAN” 
CAB8 Sacar mensaje de sistema hacia a 
CABB Buscar y dar salida a 
CABD mensaje de sistema 20 
cAco KM READ CHAR 

CcACc3 

CcAcs5 TXT CUR ON 

cAce KM WAIT CHAR 

CACB Convierte en mayúsculas 
CACE >?C” = Chancel 

CADO => Z=1,C=0 

CAD2 ?1* = Ignore 

CADA => Z=1,C=1 

CADS 

CAD7 >R” = Retry 

CAD9 => 7Z=0,C=0 

CADB Carácter ”BELL” 

CADD TXT OUTPUT, pitar una vez 
CAEO Esperar nueva entrada 


x 3% £ x Retry-entry, borrar flags 
CAE2 


Y * * Xx Chancel- e Ignore-entry, dar salida a carácter en 
CAE3 TXT OUTPUT 


CAES TXT CUR OFF 

CAE9 Dar salida a ”CR/LF” 

xx 2% *x SYSTEM-MESSAGE, buscar y dar salida a mensaje del 
CAEB 

CAED 

CAEE Borrar bit 7 del número de error 

CAFO hl apunta a los mensajes de error y del sistema 
CAF3 Número hacia b 

CAF4 Incrementar en uno, vuelve a ser inmediatamente 


CAFS decrementado en el DJNZ 


acumul adc 


sistema 
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*X x *x Xx Releer los mensajes hasta el deseado 


CAF7 Un carácter del mensaje al acumulador 
CcAFS Incrementar indicador 

CAF9 Comprueba fin de un mensaje 

CAFA Si no lo es, seguir buscando 

CAFC b<>0 releer mensaje siguiente 


xXx x % Dar salida a mensaje deseado 


CAFE Un carácter del mensaje al acumulador 

CAFF Incrementar indicador 

CBOO Alcanzado fin del mensaje”? 

CcBo2 En caso afirmativo, salto 

CBO4 

CBO6 

CBO7 Seguir comprobando y dar salida a carácter en A 
CBOA 

CcBoc 

CBOD Recoger siguiente carácter 


Y Xx *X *X Dar salida a mensaje, listo 


CBOF 

CcB12 

x Xx *x *£ Seguir comprobando y dar salida a carácter 
CB13 Comprobar carácter en el acumulador 

CB14 Si es menor que h80, entonces a salida 
CB17 Cadena para el número de drive 

CB19 Convertir número de drive en A/B y darle salida 
CB1B Cadena para variable numérica 

CB1D Determinar variable y darle salida 

CBi1F Cadena para el nombre de fichero 

CB21 Dar salida a mensaje del sistema cadena de expansión 
CB23 Nombre de fichero de 8 caracteres 

CB25 Localizar en memoria y dar salida 

CB28 -. a ” 

CR2A darle salida 

CB2D Extensión de 3 bytes 

CB2F de apunta a la posición en memoria 

CB30 Carácter al acumulador 

CB31 Borrar bit 7 

CB33 darle salida 

CB36 Número — 1, siguiente carácter 

CB38 

*xRxxx 

CB39 de apunta al nombre de fichero 

CB3A "", carácter vacio 

CB3cC 

CB48 

CB49 Offset para carácter ASCII 


CB4B darle salida 
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11: 
CB4D 
CB56 


rn1x:2 
CcB58 
CB59 
CBSA 
CcB5c 
CBS5E 
CBSF 


11: 
CB61 
CB62 
CB64 


Cero en el acumulador? 
en tal caso, dar salida a un espacio 
Offset para carácter ASCII 


darle salida 
Nóámero de drive 00d 1 


Sumar A” 
Dar salida a *A”* o ”B 


x x % % Dar salida a carácter a posición de cursor en ventana 


CB66 
CB47 
CB69 
CB6B 
CB46c 
CB6D 
CB7O 


Almacenar carácter en memoria intermedia 
Carácter vacio? 
En caso afirmativo, darle directamente salida 


TXT GET WINDOW 
TXT GET CURSOR 
d contiene la columma derecha de la ventana 


h contiene la columma del cursor 
Dar salida a ”*CR/LF” 

Carácter de nuevo al acumulador 
TXT OUTPUT 


Mensajes de error / mensajes del sistema 


Mensaje O del sistema 
CR/LF 


Mensaje 1 del sistema 
dar salida a tres espacios 


Mensaje 2 del sistema 
"num. Variable*K 


Mensaje 3 del sistema 
*CR/LF"CR/LF**num. Variable*K free 
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xx kx xXx Mensaje 4 del sistema 
CB99 >CR/LF>*Bad command” CR/LF” 


* Xx *x Xx Mensaje 5 del sistema 
CBA7 >CR/LF Filename” already exists 


X* k Xx *X Mensaje 6 del sistema 


CBB8 >CR/LF Filename”? mot found 

X * Xx kx Mensaje 7 del sistema 

CBC4 >CR/LF Drive A/B” directory *full” 

xX xx % Mensaje 8 del sistema 

CBDi >CR/LF Drive A/B Disc” ”full CR/LF” 

*XR xx X Mensaje 9 del sistema 

CBD4 >CR/LF Drive A/B Disc” changed, 

CBDC closing *Filename? ”CR/LF” 

XxX xx kx Mensaje A del sistema 

CBE9 >CR/LF Filename” is ”read” only 

X* *X x Xx Mensaje B del sistema 

CBFS ”Filename” 

Xxx x *k Mensaje C del sistema 

CBF7 >CR/LF Drive A/B” user *num. Variable” 
X* kXk *X xXx Mensaje D del sistema 

CBFF A 

XxX XxX X *X Mensaje E del sistema 

ccos >CR/LF failed to load” CP/M ”*CR/LF” 

XxX k xk *x Mensaje F del sistema 

ccoc >CR/LF failed to load” boot sector ”CR/LF” 
XxX xk *x Xx Mensaje 10 del sistema 

CciA >CR/LF Drive A/B” ”*read” ”fail CR/LF” 
Xx x * Mensaje 11 del sistema 

Cc1E >CR/LF Drive A/B” ”write” ”fail CR/LF” 
*X* Xx * * Mensaje 12 del sistema 

cc22 >CR/LF Drive A/B disc is "write” 

CCc2A protected *CR/LF” 


XX Xx % Mensaje 13 del sistema 
Cc33 >CR/LF Drive A/B disc "missing? ”CR/LF” 
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YX x % £ Mensaje 14 del sistema 
CC3D >CR/LF” Retry, Ignore or Chancel”? 


xx %£ *x Mensaje 15 del sistema 
ccse *CR/LF”? Drive ”A/B”: 


xx % £ Mensaje 16 del sistema 
Cc63 >CR/LF” Failed to load 


xx %£ £ Mensaje 17 del sistema 
Cc74 >CR/LF”? ”>CR/LF” 


xx % kx Mensaje 18 del sistema 
Ccc77 >CR/LF Drive A/B” disc 


xx % £ Mensaje 19 del sistema 
Cc7E Fail ”*CR/LF” 


Xx Xx *X *X Mensaje 1A del sistema 
cces Full ”>CR/LF” 3 


XxX xXx *X *X Mensaje 1B del sistema 
Ccg8B >CR/LF? ”Filename” 


xXx % % %x Mensaje 1C del sistema 
ccerF write 


xXx £ *x Mensaje 1D del sistema 
ccos read 


xX-x X £ No utilizado 
Cc9A FF RST 38H 
Cco9F FF RST 38H 


Xx Xx %£ Parchear todos los vectores de cassette para disco 


Ccail Drive y usuario a default AO 

CcAs 

CCA7 Acum. = hFF 

CcAs flag de OPENIN activo a hFF inactivo 
CCAB flag de OPENOUT activo a hFF< imactivo 
CCAE 

CcB2 Sal vaguardar 

CCcB5 los vectores de cassette 

CCB8 de=de+iy, mempool + hi64 

CCBB 1313 bytes = 13 vectores 

CCBE 

ccco 

ccci hO0CD30 es la dirección de entrada para 
ccc3 todas las entradas de cassette parcheadas 
Cccc4 

Cccéó6 


ccc7 KL ASC CURR SELECTION, número de la 
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CCcCA ROM de floppy como tercer byte para KST 
CCcB Código para return 

Cccp 

CcCDo 

$ x 2% x DISC 

CcDi Disc out 

CCD4 Apareció error, entonces RET 


xXx x Xx DISC IN 


CCDSs Cass in open 

ccpe Parchear cass in open y las 

CCDA siguientes seis Entries 

CCDD 

CCDE Catalog 

CCEi 

CCE2 Parchear catalog 

XxX xx x DISC OUT 

CCE4 Cass out open y las 

CCE7 siguientes cuatro Entries 

xx xx 

CCE9 Siguen parámetros? 

CCEA En caso afirmativo, salto 

CCEc En caso contrario, parchear vectores deseados 
CCEF de=de+iy, discmem + h18B 

ccF2 restart 3 

CcFa 

CCcFS Todas las Entries indican hacia hA88B 
CCFó6 

cero 

xXx x *x TAPE, restaurar vectores de cassette 
CCFD Restaurar tape out 

CDOOo Apareció error, entonces RET 


XxX xx x TAPE IN 

CcDoi 

CDO4 

CDo7 7 vectores, tape in todos 


CDOD Apareció error 


CD14 Un vector cass catalog 
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xx % £ TAPE OUT 


CcD18 

CD1B 

CD1E 5 vectores, todos Tape Out 

CD21 Siguen parámetros? 

CD22 En tal caso dar salida a error 

CD24 hl=h1+iy 

CD27 

CD29 Activar carry como indicativo de todo OK 
CD2A 

111% 

CD2B Mensaje del sistema 4, ”BAD COMMAND?” 
CD2D buscarlo y darle salida 


xx %x % Se accede desde todas las CAS-Entries mediante RST3 


CD3o Inicio de memoria para disco a iy 
CD34 necesario para la utilización de los 
CD35 juegos alternativos de registros 
CD36 

CD37 El contenido de c es variable 

cDp38 Dirección de retorno de salto a de 
CD39 POP en dos RET más 

CD3A 

CD3B Este RET ha de provocar un avance 
CcD3c bc y RET original de nuevo al stack 
CD3D 

CD3E Restaurar c y b 

CD3F 

CD41 Aumentar dirección de TRET en h10D2 
CD44 y al stack como nueva dirección 

CD45 RET apuntará ahora a la tabla siguiente 
CD44 Repetir juego de registros original 
CD47 

CcD48 Ahora pueden volver los INTs 

CD49 Al111 hay un RET! 


* xx *x Bloque de salto para las CAS/DISC-Entries parcheadas 
CcD4C DISC IN OPEN 


CD4F DISC IN CLOSE 
CD52 DISC IN ABANDON 
CD55 DISC IN CHAR 
cose DISC IN DIRECT 
CD5B DISC RETURN 

CDSE DISC TEST EOF 
CD61 DISC OUT OPEN 
CD64 DISC OUT CLOSE 
CD67 DISC OUT ABANDON 
CD6A DISC OUT CHAR 


CD6D DISC OUT DIRECT 
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* xx *x Aumentar puntero de stack y a discmem+ó6 


CD73 
CD76 


corrección del 


Preciso para la 


stack 


xx % * Puntero de stack a discmem+6 


CD77 
CcD78 
CD7B 
CD7C 
CD7F 
cpe2 
CD83 


Dos CALL y el 

Stack correspo 
y anotar en di 
y en discmem+7 


*X* xx *x Almacenar stack, 


CD84 
CcD87 
cps8 
CD8B 


Almacenar punt 


PUSH HL = 6 bytes 
mndientemente corregido a hl 
scmemt+b 


si OPENIN no activo entonces ruptura 
ero de stack 


Flag de OPENIN activo 


XxX xx * Almacenar stack, 


CD8D 
CD9O0 
CD91 
CD94 
CD96 
CcD98 
CD9B 
cD9c 


Almacenar stac 


si OPENOUT mo activo entonces ruptura 
k 


Flag de OPENOUT activo 


Fichero no abi 
=> ruptura 
Si es necesari 


erto? 


o login, proporcionar format 


* x % x Ruptura si OPENIN activo 


CD9D 
CDAO 


Flag de OPENIN 


activo 


xXx £ £ Ruptura si OPENOUT activo 


CDA2 
CDAS 
CDAS 
CDA9 
CDAA 
CcDAc 
CDAD 


Flag de OPENOU 
Almacenar stac 
Flag vale hFF 

=> no activo, 

Número de erro 
Borrar flag de 
Restaurar stac 


T activo 


k 
si no activo 
todo OK 


r al acumulador 
carry, indicativo de error 
k, interrumpir comando 


XxX x x Xx Dar salida a bad command, interrumpir comando 


CDAF 
CDBi1 
CDB4 
CDB6 
CDB8 


Mensaje del si 


stema 4, ”*BAD COMMAND” 


Número de error al acumulador 


Hasta ahora no 
Borrar carry, 


se dió salida a ningún mensaje de error 
indicativo de error 
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xxx 2% Interrumpir comando 


CDB9 Restaurar puntero de stack 

CDBC 

CDBF 

CcDco y retorno 

% x £x £ Comprueba si acumulador = 2, si no interrup. y *bad command” 
CcDci 

xx x *£ Comprueba si acumulador = 1, si no interrup. y ”bad command” 
cDc2 

EDC3 => acumulador nulo 

EDc4 Dar salida a bad command, interrumpir comando 


xx xXx Xx Recoge longitud cadena a b, dirección cadena a hl 


CDCc7 Recoger un parámetro y a hl 

CDCA Longitud de la cadena 

CDCB (h1)> => dirección de la cadena 

cpcc LD HL, (HL) 

xxx * Recoger en hl un parámetro de la ampliación de órdenes 
CDCcF Byte bajo y 

CDD2 Byte alto del parámetro de transmisión a hl 
CDDS5 ix al eventual parámetro siguiente 

CDD7 

CDD9 

xXxXXxx%6!A: 

CDDA Acumulador a O, valor para drive A 

CDDB 

xx xx 'B: 

CDDD fAcumulador a 1, valor para drive B 

CDDF Almacenar puntero de stack 

CDE2 Transmitir valor al DOS 


xx xx 'DRIVE 


CDE4 Almacenar stack 

CDE7 Un parámetro de la serie, en caso contrario *bad command” 
CDEA Recoger parámetro 

CDED 

CDEE Dar salida a bad command, interrumpir comando 

CDFi Indicativo de drive deseado (A/B) al acumulador 

CDF2 Convierte en mayúsculas 

CDFS Da00 1 

CDF7 Login 

CDFA Transferir número de user al DOS 

CDFD 

xx xx 'USER 

CDFE Asegurar stack 

CcEo1 Un parámetro de la secuencia, en caso contrario *Bad command 


CEO4 Recoger parámetro a hl 
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CEO7 Número máximo de user + 1 

CEOA de = h1?, número de user legal”? 

CEOD demasiado alto, ”*”Bad command”, ruptura 

CE10 Transferir número de user al DOS 

CD13 

xRx xx 

CE14 Primer carácter expand. filename, número de drive 
CE15 

CE19 

CE1A Número de drive de drive comunicado 

CE1B hFF = OPEN con drive comunicado activo 

CE1D Flag de OPENIN activo 

CE20 en este drive? 

CE21 => OPENIN activo 

CE23 Flag de OPENOUT activo 

CE26 en este drive? 

CE27 => OPENOUT activo 

CE29 h00 = ningún OPEN activo en drive comunicado 

CE2B 

CcE2c 

CE2D Comprueba número de drive, proporciona disc-format 
CE3O 

CE31 

CE32 Comprueba si hl es 0000 

CE33 Si hl es 0000, entonces drive no READY 

CE34 Dar salida a bad command, interrumpir coando 

CE37 (h1)>)=> disc-parameter-header (A910/A920) 

CE3A a iy+3/iy+4 

CE3D flag acerca de si OPEN activo en drive comunicado 
CE40 Número de drive (HS/US) 

CE43 

CE47 

* x x *x Copia nombre expandido de fichero en OPENIN—-header-block 
CE48 Offset hacia OPENIN—-header-—block 

CE4AB 

CES6 

* *x * * Copia nombre expandido de fichero en OPENOUT-header-block 
CE537 Offset hacia OPENOUT—header-—b1lock 

CESA 

CES5B 

CESC hl=h1+iy, hl => header-block 

CESF 

CE61 

CE62 (de) => dirección del buffer de usuario 

CE63 

CE64 a puntero de comienzo del buffer de usuario 

CE65 

CE66 Vector en buffer de usuario 

CE67 inicializarlo 


CE68 
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CE69 (h1)=> comienzo nombre de fichero en cabecera 

CE6A 

CE6B (bc)=> EFN a partir de número de usuario 

CE6C Número de bytes a borrar 

CE6F 

CE7O Borra desde (de) hasta (de+bc), resto de la cabecera 
CE73 (bc)=> EFN a partir de número de usuario 

CE74 Transferir a hl 

CE7S 

CE76 Dirección en cabecera del nombre de fichero a de 
CE77 

CE78 Longitud nombre de fichero incluyendo drive/user 
CE7B transferir al header-block 

CE7D Dirección en cabecera nombre de fichero a hl 

CE7E Dirección buffer de usuario a de 

CE7F 

CE83 

CE84 Indicativo tipo de fichero *unprot. ASCII” 

CE86 

cese 

CE89 Dirección buffer de usuario a de 

CEBA 

CE91 

xx %£ *£ Suma comprobación de dos bytes extendida a la cabecera (h43 bytes) 
CE92 hl1=> comienzo de la cabecera 

CE93 Poner suma de comprobación a O 

CE96 Byte high de de a O 

CE97 Número de bytes 

CE99 hl = indicador en cabecera, suma de comprobación al stack 
CE9A un carácter al acumulador 

CE9B Siguiente carácter en la cabecera 

CE9C hl' = suma de comprobación, indicador en 1 cabecera al stack 
CE9D Acumulador a e, de "= carácter en 16 bits 

CE9E Incorporar a suma de comprobación 

CE9F Otro carácter? => 

CEA1 Suma de comprobación a de 

CEA2 h1 => comienzo cabecera 

CEA3 

1$.:12%% 

CEA4 

CEAC 

xx % %£ DISC IN OPEN 

CEAF Anotar puntero de stack 

CEB2 Dirección de buffer de 2K 

CEB3 Comprobar validez de nombre de fichero 

CEB6 Disc-parameter-header a hl, en caso contrario login 
CEB9 

CEBC (bc)=> nombre expandido de fichero 

CEBD (h1)=> primer carácter extensión 


CEBE Primer carácter extensión = hFF? 
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CEBF => nombre de fichero dado sin extensión 

CEC1 Buscar nombre de fichero en el directorio 
CEC4 => fichero no hallado, ruptura 

CEC7 

* xx * Nombre de fichero dado sin extensión 

CEC9 Apuntar 3 espacios como extensión 

CECcCc Nombre de fichero sin extensión en disco? 
CECF => hallado 

CED1 Apuntar ”BAS” como extensión 

CED4 Almacenado como fichero BASIC? 

CED7 => hallado 

CED9 Apuntar ”BIN” como extensión 

CEDC Almacenado como fichero binario? 

CEDF 

CEEO Fichero no hallado, 3 espacios como extensión 
CEE3 

CEE4 => ruptura, *File not found” 

xXx % *x Nombre de fichero hallado en el directorio 

CEE7 Dirección buffer de 2K 

CEE8S Copiar nombre de fichero en cabecera de OPENIN 
CEEB Dirección de comienzo de cabecera 

CEEC 

CEEF de=de+iy, dirección OPENDIN-FCB 

CEF2 

CEF3 Número de drive 

CEF4 a OPENIN-FCB 

CEFS Número de caracteres en fichero de input a O 
CEF8 

CEFB hl=h1+iy, dirección de record-buftfer 

CEFE Record a Record-Buftfer 

cFo1 => apareció error 

CcFO3 (hl1)=> comienzo de Record-Buftfer 

CFO4 (de)=> nombre de fichero en OPENIN-FCB 

CFOS Suma de comprobación de h43 bytes del registro a de 
CcFO8 1d hl,(h1l), suma de comprobación almacenada, eñ su caso 
CFOB h1l = de? en caso afirmativo, el registro es cabecera 
CFOE 

CFOF 

cF10 => suma de comprobación <>, fichero ASCII! 
cF12 

cris de=de+i y, OPENIN—-header-b1lock+5 

cr18 Número de bytes de cabecera 

CF1B transferir al OPENIN—header-block 

CF1D 

X* xk xk *x Ningún fichero ASCII como fichero de input 

CcF1iF Número de caracteres en fichero de input a O 
cF22 

CF27 

CcF28 Dirección, en la que se escribió 


CF29 originalmente el fichero, a de 
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CF2A 
cF2c 
CF2D 
CF2E 
CF30 
CF31 
CF32 
CF33 
CF36 


Longitud del fichero a bc 


Indicativo OPENIN OK 
Ningún error al sistema operativo CPC 
Tipo de fichero del fichero abierto 


XxX *x x *x DISC OUT OPEN 


CF37 
CF3A 
CF3B 
CF3E 
CF41 
CF42 
CcFa5 
CF46 
CF49 
crac 
CF4D 
CF4E 
CF4F 
CcFS2 
CFSS5 
CF38 
CFSA 
CFS5D 
CF60 
CF61 
CF62 
CF63 


Anotar puntero de stack 

Dirección de buffer de OPENDUT de 2K 

Comprueba validez nombre fichero, si válido dispone EFN 
Disc parameter header a hl, en caso contrario login 
Buffer de OPENOUT de 2K 

Copiar EFN en OPENOUT—header-—b1lock 

(h1) => OPENOUT—-header +5, número de usuario 

Apuntar extensión ”$$$” en OHB 

Fichero ya en el disco? 

Dirección de OPENOUT—-header a hl 


(h1) => número de drive 


de=de+ iy, OPENOUT-+ilecontrol-block 

Longitud del nombre de fichero con drive y user 
transferir a OPENDUT-FCB 

Longitud disposición bloques en el dir (hi0)+puntero(7) 
Borra en FCB el resto tras nombre de fichero 
Header-block +5 

Indicativo OPENOUT OK 

OPENOUT OK al sistema operativo CPC 


xx x * DISC IN CHAR 


CF64 
CF6S5 
CF66 
CF57 
CF6A 
CF6B 
CFé6c 
CF6D 
CF6E 
CF7O 
CcF71 
cF72 
CF73 


Rescatar todos los registros 


Recoger un carácter del buffer de OPENIN 
Restaurar registros 


Indicativo de aparición de error 
Leido indicativo EDF? 

Indicativo todo OK 

=> no EOF 

En caso contrario borrar carry 

y retorno 
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x x %£ * Recoge un carácter de fichero de OPENIN abierto 


CF74 Salvaguardar stack, comprobar flag de OPENIN 
CF77 Di sc-mempool 

CF79 hacia de 

CF7A 

CF7D (h1)=> Indicativo in char (1)/in direkt (2) 
CF7E Indicativo al acumulador 

CF7F Disc in direkt activo hasta ahora? 

CcF81 En tal caso error, interrupción del comando 
cF84 Apuntar indicativo disc inm char 

CF86 Comprobar si hay carácter en el buffer 

cra9 

CF8A Contador de tres bytes de caracteres de fichero 
CF8B 

CF8E 

CF8F => ningún carácter en el buffer 

CcF91 

cF98 

cF99 Rellenar buffer de OPENIN de 2K 

cr9c Número de caracteres leidos en buffer de OPENIN 
CF9D Comprobar a nulidad 

CFI9E 

CF9F => error, no hay caracteres en el buffer 
CcFA1 Número de bytes leidos a bc 

CFAZ 

CFAZ 

CFAS Es leido un carácter, decrementar por tanto 
CFAS Número restante en el buffer 

CFA6 Anotar carácter 

CFA7 

CFBA 

CFBB Puntero en buffer de OPENIN a de 

CFBC 

CFBE 

CFBF LD A, (HL), recoger carácter del buffer 

CcFco 

CcFCci Incrementar puntero de buffer de OPENIN 
cFc2 “y anotar 

CFC3 

CEFC4 

CFCOS Indicativo de un carácter recogido 

CFCó6 

xxx % Fin de error 

cFe7 Código de error 

CcFCo Borrar carry 


CFCA 
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CFEE 
CFEF 
CFFO 
CFF4 


1d h1,(hl1)>, dirección de buffer 

anotar en stack 

16 registros 

a cargar en buffer de OPENIN, si existen 


Determinar número de registros leidos 
Número hacia b 


Determinar número de bytes leidos 
Resultado hacia bc 

Puntero de buffer de OPENIN 
(h1)>=> número de bytes leidos 
anotarlo 


Anotar puntero de buffer de OPENIN 


xx % £ DISC IN DIRECT 


CFFS 
CFF8 
CFF9 
CFFC 
CFFF 
DO0O 
DOO2 
DOOS5 
DOO7 
DOOA 
DOOB 
DOOC 
DOOF 
Do10 
DO11 
Dpo12 
DO14 
DO17 
Do18 
DO19 
DO1A 
DO1D 
DO1E 
DO20 
DO27 
DO2A 
DOZD 
DO45 
DOA6 


Salvaguardar stack, comprobar flag de OPENIN 
Dirección de carga 


hl=h1 + iy 

Comprobar indicativo in char (1)/in direct 
En caso de dis in char, 

error, interrupción del comando 

Apuntar indicativo disc in direct 


Námero de caracteres hacia de 


Dirección de carga a hl 

e intercambiar 

2"7=128 

Divide número de caracteres/128 
Resultado, número de registros a bc 


Dirección de carga hacia hl 
Cargar número calculado de registros 
=> error 


hl1=h1 +iy 


1d hl1, (h1> 
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xxxx 

DO49 

* x x * Registros en buffer de OPENIN, número de registros en dc 
DO4B Registro, eventualmente de disco, en buffer 

DO4E => fin de fichero o cualquier otro error 

DO4F 

DOoS52 de=de+iy, dirección en cabecera de OPENIN de tipo de fichero 
DO55 Comprobar tipo de fichero 

DOS6 

DOS57 => carry únicamente en ”Protected File” 

DOSA Longitud de registro 

DOSD Aumentar puntero de buffer 

DOSE Número de registros restantes a leer 

DOSF Comprobar número a nulidad 

DOS50 

DO61 => todavia no todos leidos 

DO63 Todo OK, todos los registros leidos 

DO44 

xxx *x DISC TEST EOF 

DO65 Llamada a disc in char 

DO68 RET ante EOF, en caso contrario devolver carácter al buffer 


* x x *£ DISC RETURN 
DO69 
DOS4C 
DO6F h1=h1+iy 
DO72 
DOSE 


* x x *x DISC OUT CHAR 


DOSF Anotar stack, comprobar flag de OPENOUT activo 
DO92 

DO94 

DO9S El acumulador contiene el carácter 

DO96 Disc-mempool a de 

DO98 

DO99 

Do9c Disc-out-mode flag (char/direkt) 

DO9D de la cabecera al acumulador 

DOJ9E Disc-out-direkt hasta ahora? 

DOAO => cierre del comando 

DOA3 Apuntar indicativo disc-out-char 

DOAS 

DOAS (h1):= número de caracteres en el buffer de OPENOUT 
DOA9 

DOAA 1d h1,(h1), número de caracteres a hl 

DOAD 

DOB1 

DOB2 => más de 2K, escribir datos en disco 

DOBS 
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DOB7 
DOB8 
DOB9 
DOBB 
DOBC 
DOBF 
Doco 
DOCc3 
DOC6 
DOC7 
pocs 
Doc9 
DOCB 
Docc 
DOCD 
DOCE 
DODO 
DOD4 
DODS 
DOD6 
DOD7 


Incrementar caracteres en el buffer del usuario 


Valor de 2 bytes 


Incrementar byte alto 
sólo en caso de necesidad 


Aumentar File Character Counter 

(h1) => vector a puntero en buffer de usuario 

bc => puntero en buffer de usuario 

Depositar carácter de acumulador en buffer de usuario 


Incrementar puntero en buffer de usuario 
También byte alto en caso de necesidad 


Indicativo todo OK 


Mensaje al sistema operativo CPC todo OK 


xx 2% *x DISC OUT DIRECT 


DOoD8 


DOF4 
D111 
D112 
D113 
D116 
D117 


xxx %£ Escribir en disco 2K 


D118 
D11A 
D11B 
D11E 
D11F 


Anotar stack, comprobar flag de OPENOUT activo 


Acumulador = tipo de fichero 


Dirección a partir de la que ha de escribirse 
Longitud de los bloques de datos 


hl=h1+iy, disc-out-mode (char/direkt) 


Al acumulador 


Disc-out-char activo hasta ahora? 
En tal caso error, 


Apuntar indicativo de direkt 


bc = dirección de entry 


bc 


Tipo de fichero al acumulador 


Tipo de fichero a OPENOUT-header-b1lock 


Disc mempool 
a de 


Byte de cabecera 


longitud bloque de datos 


"First lock” 


cierre del comando 


(buffer de usuario con OUT CHAR) 


297 


298 
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=> no es el primer bloque 


(h1):= tipo de fichero 

Tipo de fichero al acumulador 
El nibble high es irrelevante 
Indicativo *unprotected ASCII”? 
=> es el caso 


h1=> OPENOUT-file-control-block 
Di sc-mempool 


Número de registros +1 para Header-Record 
Comprobar número de registros en el FCB 


Block Char Counter 
Número de caracteres a de 


h1=> vector de buffer de usuario 
1d h1, (h1)>, hl1 => buffer de usuario 


Buffer a registros, luego a disco 
bc => buffer de usuario 

h1 => character count 

ponerlo a cero 


Indicativo OK 


Número de caracteres en el bloque 
Número de registros/bloque 

Número a de 

Divide número caracteres/128 
Resultado, registros precisos a de 
y bc 


Transferir registros 

Número de caracteres 

Byte low al acumulador 

Limitar a un registro 

Si es nulo, no más bytes 

En caso contrario, resto de fichero en nuevo registro 
:luego byte high = cero 


de=de+i y 

Buffer de record 

KL DIR, transfiere último registro al buffer 
Indicativo EOF 
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D185 
D186 
D187 
D188 


Encadenarlo 
hl=> buffer de registro 
bc = aumentar Record-Counter 


xx 2 % Escribir registros en fichero (número en bc) 


D18A 
D18B 
D18E 
D191 
D192 
D193 
D195 
D196 
D199 


de=de+i y 

Tipo de fichero al acumulador 
Bit O activado? 

=> no activado, no ”Protected” 


de=de+i y 

de = buffer de registro 

Longitud de registro 

KL DIR, Header-Block a buffer de registro 


>proteger” registro 

Registro en buffer de sector, eventualmente en disco 
hl1=> buffer de record 

Longitud de record 


Rebajar número de registros 
Escritos todos los registros? 


=> registros aún por escribir 


xx % * DISC IN CLOSE 


D1B6 
D1B9 


Salvaguardar stack, comprobar flag de OPENIN 
Apagar motor, desenclavar event 


xx %£ £ DISC IN ABANDON 


DiBC 
Di1Co 


Fijar flag de OPENIN en inactivo 
Cierre 


xx £ £x DISC OUT ABANDON 


D1C2 
D1C5 
D1Cc8 


Salvaguardar stack, comprobar flag de OPENOUT 
de=de+i y 


Liberar de nuevo bloques en tabla de asignación 


Buscar pista O 
Cierre 
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XxX Xx * *x DISC OUT CLOSE 


D1D8 File Character Count 

D1DB h1=h1+iy 

D1DE Comprueba si de hecho fueron transferidos 
DiDF caracteres, 

D1EO 

D1E2 

D1E3 en caso contrario, disc out abandon, ningún apunte de dir 
D1ES Salvaguardar puntero de stack, comprobar flag de OPENOUT 
DiE8 Transferir último registro al buffer 

D1EB 

DiEE de=de+iy, nombre de fichero en el DOPENOUT-FCB 
DiF1 a 

D1F2 Apuntar nombre de fichero y disposición en dir de bloques 
D1FS 

D1F8 bc=bc+iy,bc:= OPENOUT-header-block 

D1FB 

D1FE (h1):= tipo de fichero 

D1FF 

D203 

D204 Primer carácter de extensión al acumulador 
D205 Comprobar si es hFF 

D206 => extensión indicada 

D208 Tipo de fichero al acumulador 

D209 

D20B 

D20D Apuntar extensión ”BAS” 

D210 

xXxAxx 

D212 Tipo de fichero 2? 

D214 

D2165 Apuntar extensión ”BIN” 

D219 

Xx xx 

D21B Apuntar 3 espacios de extensión 

D21E Dirección OPENOUT-header-block a hl 

D21F 

D220 Tipo de fichero al acumulador 

D221 El nibble high es irrelevante 

D223 *unprotected ASCII”? 

D225 => está ”*protected” 

D228 OPENOUT-FCB a bc 

D229 

D22B Indicativo OFENOUT no activo 

D22C 

D22D Sobreescribe *$$$* con extensión original 
D230 Indicativo DISC OUT CLOSE OK 

231 Mensaje al sistema operativo CPC todo OK 


D232 
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xxx 
D233 
D236 
D23A 
D240 
D243 
D246 
D24F 


xr1xx 
D252 


D25A 


xxx 
D25C 
D25D 
D25E 
D263 
D264 
D265 
D266 
D267 
D269 
D26A 
D26B 
D26D 
D265F 
D273 
D274 
D276 
D278 
D27B 
D27D 
D280 


xx x 
D281 
D287 


xxx 
D28c 
D298 


xx x 
D299 
D2A5 


xxx 
D2A8 
D2A9 


x 


x 


* 


x 


x 


H ningún OPEN activo en drive referido 


de=de+i y 


*Protected Pile”?, protección mediante XOR 


Puntero de buffer de OPENIN a hl 
RAM LAM, carácter de buffer al acumulador 


Byte de nuevo a buffer de OPENIN 
Incrementar puntero de buffer 
Y de nuevo al stack 
Siguiente XOR-byte 
Siguiente XOR-byte 
Contador de bytes para tabla-ix 
=> tabla aún no finalizada 
Tabla de 11 bytes para ix 
Inicio de tabla a ix 
Contador de bytes para tabla-hl 
=> tabla aún no finalizada 
Tabla de 13 bytes para hl 
Inicio de tabla 

:¿= número de bytes a codificar 


Tabla para ix 


Tabla para hl 


Extensiones 


tres espacios 
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xxx 

D2AB $$$” para nombre de fichero intermedio 
D2AD 

.£.:11::% 

D2AF *BAK” para fichero back-up 

D2B1 

xs1xx% 

D2B3 >BAS” para ficheros BASIC 

D2BS 

xxx % 

D2B7 ”BIN”? para ficheros binarios 

D2B9 

D2BA Sumar byte low del inicio de tabla 

D2BC Resultado a e 

D2BD Sumar a byte high de carry 

D2BF Restar byte low 

D2CO Byte alto resultado a d 

D2C1 

xx £ £ Apuntar extensión en nombre de fichero 
D2C3 

D2C4 

D2C7 de=de+ iy 

D2CA 

D2CB 

D2Ccc Longitud nombre de fichero incluyendo user, sin extensión 
D2CF 

D2DO Longitud extensión 

D2D3 

D2D4 Apuntar extensión deseada en nombre de fichero 
D2D6 

D2D9 

x1x1x_% 

D2DA Longitud nombre de fichero + extensión 
D2DD 

D2E2 

D2E4 Número de apuntes de dir % tabla de asignación a O 
D2E7 

D2EB 

D2EC Siguiente apunte de dir a (de) 

D2EF 

D2FO => ningún apunte más en el DIR 

D2F2 Encadenar extensión *BAKkK?” 

D2FS Busca en el disco el nombre de fichero dado 
D2F8 => BAK no existente 

D2FA 


D2FC Prueba si el fichero es de READ ONLY 
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D2FF => es de READ ONLY 

D301 

D302 Apuntar extensión en (de) 

D305 Busca en el disco el nombre de fichero dado 

D308 => fichero no existente 

D30A 

D3oc Prueba si el fichero es de READ ONLY 

D30F => el fichero es de READ ONLY 

D311 

D327 

D329 Número de apuntes de dir % tabla de asignación a O 
D32C 

D333 

x1xn1x 

D335 Apuntar extensión ”BAK>” 

D338 Busca en el disco el nombre de fichero dado 

D33B => hallado 

D33E Buscar en dir fichero->$$$>” 

D341 => hallado 

D342 Encadenar extensión original 

D345 Busca en el disco el nombre de fichero dado 

D348 => no hallado 

D349 

D34B 

D34C Apuntar extensión ”BAKkK” 

D34F 

xx £ £ Prueba si el nombre de fichero con *$$$*se halla en el disco 
D351 Apuntar extensión ” $$$” 

D354 Busca en el dir el nombre de fichero dado 

D357 => no hallado 

D358 (bc)=> nombre de fichero 

D359 Dirección del apunte de dir idéntico 

D35A a bc 

D35B Escribir extensión original en registro de dir 
D35E 

D35F 

11.12% 

D362 Número de apuntes de dir % tabla de asignación a O 
D365 Proporcionar siguiente apunte de dir, de = número 
D348 => ningún apunte de dir más 

D3469 Busca nombre de fichero temporal ($$$) y original 
D36C Proseguir búsqueda 

x11x% 

D34E Número de apuntes de dir % tabla de asignación a O 
D371 Proporcionar siguiente apunte de dir, de = número 
D374 => ningún apunte de dir más 

D375 Si hallado fichero temporal ($$$), extensión orig. a registro 
D378 En caso contrario, proseguir búsqueda 


*x2x2% 
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D37A 

D37D 

D37E Apuntar extensión en (de) 

D381 Busca en el disco el nombre de fichero dado 
D384 

D387 

Xx xx %* READ-ONLY-file, interrumpir comando 

D388 Apuntar extensión en (de) 

D38B 

D38c 

D38D Mensaje de sistema 10, file is read only 
D38F darle salida, comando finalizado 

*Rxx%x 

D392 

D396 

D399 de=de+iy, dirección de OPENIN-FCB 

D39c Comprobar si se leyd último registro 

D39F => ningún registro más en el fichero 

D3A1 de:= número de registro, hl nombre de fichero en en FCB 
D3A2 (h1)>:= buffer de registro 

D3A3 Recoger registro en buffer de registro 

D3A6 

D3A7 

xRx1x:% 

D3A9 

D3AE 

x *x %x *X Registros a buffer de registro, en caso contrario a disco 
D3AF Buffer de registro 

D3BO 

D3B1 Número de registros 

D3B2 y de nuevo buffer de registro 

D3B3 

D3B6 de=de+i y, OPENDUT-FCB 

D3B9 Prueba si DISK FULL 

D3BC => aún queda espacio 

D3BE Mensaje de sistema 8, disc full 

D3co darle salida, interrumpir comando 

D3C3 Busca apunte de dir libre 

D3C6 

D3D1 

D3D2 Buscar y ocupar bloque libre 

D3D5 

D3D6 Dar salida a mensaje de sistema 8, disc full e 
D3D8 interrumpir comando, si ningún bloque libre 
D3DB Anotar bloque ocupado 
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D3EA Registro a buffer de registro, en caso contrario a disco 
D3F1 Número de registros +1 


D3F7 Indicativo todo OK 


D40A Registro a buffer de registro, en caso contrario a disco 
D40D Dar salida a bad command, interrumpir comando 


xx £ £ Comprueba si se leyá último registro 


D410 

D422 

D423 32 bytes de (hl1) a (de) 

D426 

D42D 

xxx % "DIR 

D42E Salvaguardar stack 

D431 

D433 Siguen parámetros”? 

D434 => no más parámetros 

D436 Uno de los parámetros es OK en caso contrario ”Bad command” 
D439 b:= longitud cadena, hl:= dirección cadena 

D43C Convertir en nombre de fichero correcto 

DA43F Disk parameter header a hl, en caso contrario login 
D442 Dar salida a ”Drive 4%: user 4” 

D445 Longitud de un nombre de fichero, ”?.”? inclusive 
D447 Determinar cantidad de apuntes/linea de pantalla 
D44A 

D44B 

D44C Número de apuntes de dir + tabla de asignación a O 
D44F Buscar nombre de fichero y proporcionar disposición 
D452 => ningún apunte más 

D454 Comprueba si el apunte lleva atributo de SYS 

D457 => segundo carácter extensión >7F, atributo de SYS 
D459 Apuntes contados al stack 

D45A : 

D45B h:= apuntes/linea 

D45C 1l:= apuntes de salida pendiente en linea 

D45D => dar salida a tres espacios 

D460 => dar salida ”CR/LF” 

D463 Dar salida a nombre de fichero, de apunta a nombre fichero 
D466 Apuntes mostrados en linea actual 

D467 => linea aún no llena 

D469 Linea llena, número a valor inicial 
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D46B Apuntes contados a hl 

D46C Apunte siguiente 

xxx x Cierre 'DIR 

D46E 

D456F Determinar y dar salida a número de bloques libres 


Xx % Xx £ Determinar número de apuntes/linea para IDIR y CAT 


D472 Longitud del apunte más los tres espacios 
D474 

D476 

D477 TXT GET WINDOW 

D47A Columna derecha de la ventana actual 

D47B 

D47D 

D47F Inicializar contador de apuntes/linea 
D481 Número de apuntes/linea 

D482 Longitud de un apunte de DIR 

D483 

D485 Número de apuntes de DIR/linea, corrección 
D486 Si número = O, no formatear, 

D487 fijar cifra en 1 

D489 


Xx xx ERA 


D48A Salvaguardar stack 

D48D Un parámetro de los que siguen, si no, *”Bad command” 
D490 Dirección nombre del fichero a borrar a hl 

D493 Poner nombre de fichero para DOS 

D496 Disk parameter header a hl, en caso contrario, login 
D499 Número de apuntes de dir % tabla de asignación a O 
D49C Buscar nombre de fichero y proporcionar disposición 
D49F => comunicar fichero no hallado, interrupción 

D4A1 

D4A4 Buscar nombre de fichero y proporcionar disposición 
D4A7 

D4A9 

xRxXxx 

D4AA 

D4BO 

xxx x 

D4B1 Comprueba si el fichero es de READ ONLY 

D4B4 

D4B5 Mensaje de sistema *Filename is read only” 

D4B7 => dar salida a mensaje, interrupción 

D4BA 

D4BB Liberar bloques en tabla de asignación 

D4BE Indicativo fichero borrado 

D4co apuntarlo en nombre de fichero 


D4Ci 
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xxx x REN 


D4C4 
D4C7 
D4CA 
D4CD 
D4DO 
DAD1 
D4D4 
D4D7 
D4D9 
DADA 
D4DD 
D4EO 
D4E1 
D4E2 
D4E5 
D4E8 


Salvaguardar stack 

Dos parámetros de los que siguen, si no, interrupción 
Primer parámetro, nuevo nombre, a hl 

Dispone nombre de fichero para DOS 


Segundo parámetro, nombre antiguo, a hl 
Disponer nombre de fichero para DOS 


Dar salida a bad command, interrumpir comando 
Disk parameter header a hl, en caso contrario, login 


Comprobar si el nuevo nombre de fichero ya existe 


Número de apuntes de dir % tabla de asignación a O 

Buscar antiguo nombre de fichero y proporcionar disposición 
=> fichero no hallado 

Comprueba si el fichero es de READ ONLY 

=> el fichero es de READ ONLY, mo modificar 


longitud de nuevo nombre de fichero 
sobreescribir nombre antiguo 


Buscar antiguo nombre de fichero y proporcionar disposición 


xx % % Fichero mo hallado, interrupción 


D5oc 
D5OD 
D5O0E 
D510 


Dirección nombre de fichero para salida a de 


Mensaje de sistema 6, file not found 
darle salida, interrumpir comando 


x xx x CATALOG 


D513 


Anotar puntero de stack 

Dirección de buffer de usuario 

transferir a ix 

Longitud del buffer de usuario 

Borra buffer de usuario (de) hasta (de+bc) 


Disk parameter header a hl, en caso contrario, login 
Salida de "Drive 4%: user 4” 
Número de apuntes de dir % tabla de asignación a O 


Buscar antiguo nombre de fichero y proporcionar disposición 


Comprueba si el fichero lleva atributo de SYS 


308 El gran libro del floppy para el CFC 


DS35 => es fichero de SYS, no darle salida 
D537 

DS538 Un apunte en buffer de usuario 

DS3B 

DS3c Siguiente apunte, por lo que aún queda otro 
DS3E Longitud de un apunte de dir en monitor 
D540 Determina número de apuntes/linea 

D543 Número a d 

D544 

DS54C 

D54E Número de lineas 

DS54F Buffer de usuario 

DS551 a hl 

D552 Lineas ac 

D553 Apuntes/linea a b 

D554 

DS555 Salida de un apunte 

D558 

DS5A 

DSS5C hl:= hl £ 14 para salida alfabética 
DSS5F en varias columnas 

D540 

DS561 y dar salida a siguiente apunte 

DS543 

DS6F 

D571 Proporciona número de bloques ocupados 
DS574 

D576 Mensaje de sistema 3, xxxK free 

D577 darle salida 

xx * X Salida de un apunte desde el buffer de usuario 
DS57A RAM LAM, LD A, (HL) desde buffer de usuario 
D57B Carácter un 0? 

D57C Entonces ningún apunte y => 

D57D rescatar registros 

DS57E 

DS7F 

D580 Apuntes/linea 

Ds8i igual A apuntes sacados”? 

D582 En caso de desigualdad, dar salida a 3 espacios 
D585 En caso contrario dar salida a ”CR/LF” 
D588 

D589 Dar salida a nombre de fichero 

D58c Comprueba si el fichero es de READ ONLY 
D58F ERA 

D591 Si R/O, dar salida a ”*x” 

DS93 ”espacio” 

D595 TXT OUTPUT 

D598 

D59B 

D59C RAM LAM, LD A, (HL> de RAM 

D59D 


DS59E 
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DS59F RAM LAM, LD A, (HL) de RAM 


DS5A1 Mensaje de sistema 2, tres espacios 
D5A3 darle salida 


DS5AE Buffer de usuario 

DS5BO a hl 

DSB1 RAM LAM, LD A, (HL) de RAM 
D5B2 Comprueba si carácter O 


DS5CB Determina número de bloques ocupados del fichero 
D5D3 RAM LAM, LD A, (HL)> de RAM 


DS5D6 RAM LAM, LD A, (HL) de RAM 


D608 Indicativo de fin en el buffer de usuario 
D650B de:= puntero de registro 


D60D Longitud nombre de fichero+extensión 

D610 KL LDIR, de registro a buffer de usuario 

D613 Puntero de registro a hl 

D614 Inicio de registro a hl 

D615 Inicio de registro a de 

D6l6 Determina número de bloques ocupados del fichero 
D519 Número de bloques a de 
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D51A 

D61B Apuntar en el buffer de usuario 

D61C 

D622 

xxxx 

D623 

D62D 

D62E RAM LAM, LD A, (HL) de RAM 

D62F 

D639 

xx 2%2%phl:=h1x14 

D63A Anotar 

D63B 

D63cC 

D63D hl=antiguo valor en hl Xx2 

D63E hl=antiguo valor en hl £3 

D63F hl=antiguo valor en hl Xx6 

D640 hl=antiguo valor en hl Xx7 

D641 hl=antiguo valor en hl x14 

D6542 

D643 

xRx3x% 

D644 Número de apuntes de dir % tabla de asignación a O 
D647 Buscar nombre de fichero y proporcionar disposición 
D64A 

D644C Mensaje de sistema S, file already exists 
D64E darle salida, interrumpir comando 


xx Xx * Buscar nombre de fichero en el directorio 


Dé651 Número de entradas de dir € tabla de asignación a O 
D654 Buscar nombre de fichero y proporcionar disposición 
D657 => no hallado 

D659 Número de entrada de dir hallado 

Dé6SA 

D65D hl=h1+iy, dirección OPENIN-FCB 

D560 a de 

D6S61 32 bytes, entrada de dir en OPENIN—-FCB 

D6564 Número de entrada de dir hallado 

D665 Fichero activo en este drive? 

D6558 

D669 

D655A => fichero activo 

D66B Leer directorio hasta fin, proporcionar número de ficheros 
D656E y número de bloques ocupados 

D670 Directorio leido 

D671 Marcar fichero como activo en este drive? 


D675 
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x xx £ Busca nombre fichero en directorio, proporciona disposición bloques 


D676 Número de entradas de dir % tabla de asignación a O 
D679 Buscar nombre de fichero y proporcionar disposición 
D67C => no hallado 

D67E 

D681 

x 3 % *x Determina disposición de bloques en disco 

D683 => nombre de fichero 

D684 Buscar pista O 

D487 

D688 

D68B Fichero activo en este drive? 

D68E 

D6sF => fichero abierto 

D490 

D691 Tabla de asignación a O, ocupar bloques de dir 

D494 

D695 

xx £ £ Buscar nombre fichero, disposición bloques y número ficheros 
D498 Número de bloques en tabla de asignación, contar ficheros 
D69B => ningún apunte más 

D69C Nombre de fichero dado=apunte de dir”? 

D69F => distintos, buscar y proporcionar disposición 
D6A1 Hallado nombre de fichero idéntico 


xx * % Proporcionar número de ficheros en disco 


D6A2Z Contador de entradas 

DSAZ OPEN activo en este drive 

D6A6 

D6A7 => OPEN activo 

D6A9 Record a buffer, puntero de record=> apunte de dir 
D65AC => ningún apunte más 

D6AD Indicador de entrada de dir 

D6AE Indicativo de fichero borrado 

D4BO 

D6Bi => si apunte borrado 

D6B2 En caso contrario aumentar número de entradas 
D6BS5 

D6B7 Determina número de bloques ocupados 


XxX xX *X Xx Llegada de salto D6A2 si OPEN activo 

D6BA Comprueba si la posición de la entrada de dir es OK 
D6BD 

D6BE 


3 x 2 %£ Número de caracteres en fichero a hl 
D4C1 

D6CA4 

D6C5 1d h1, (h1) 
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D6EA Máscara de exent al acumulador 


D707 Borra (de) hasta (de+bc) 


D729 hl = de? carry si son iguales 


D734 Máscara de bloque al acumulador 


D73B Block-shift al acumulador 


D743 Número máximo de bloques, byte high al acumulador 


D758 1d hl, (h1)> 


D76F Block-shift al acumulador 
D77A 


*Rxx%x 
D77B 
D77C 


xXx x *x Determinar número de registros ocupados en el FCB 
D77D 
D78B 
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*x x 2 * Ocupa apunte de directorio libre 


D78c 
D78D 
D78E 
D791 
D792 
D793 
D796 
D797 
D79A 
D79B 


x1x 
D79C 
D7A6 
xr12 
D7A7 
D7B2 


xx: 
D7B3 
D7B6 
D7B9 


x1x:% 
D7BB 
D7BE 
D7BF 
D7C2 
D7C4 
D7C7 
D7C8 
D7CA 
D7CC 
D7CD 
D7DO 
D7D1 
D7D3 
D7D6 
D7D7 


x 


Buscar apunte libre 

Dirección de apunte al stack, hl=dirección nombre fichero 

No se precisa número de drive 

Escribir nombre fichero y disposición de bloques en registro 


Escribir nombre fichero y disposición bloques en registro dir 


Poner a O número caracteres en fichero 


Incrementar en 1 número caracteres en fichero 


Número de entradas de dir % tabla de asignación a O 
Buscar nombre de fichero y proporcionar disposición 


Buscar apunte de directorio libre 


Comprueba espacio en el directorio 

mensaje del sistema 7, dar salida a directory full 
Interrumpir comando si no hay espacio 

(de)= puntero de registro en registro de dir 
Apunte borrado”? 

=> no libre, siguiente apunte (entrada) 


OPEN activo en este drive? 


Error, interrumpir comando 


xk xx £ Busca en el directorio el nombre de fichero dado en bc 


D7D8 
D7D9 
D7DA 
D7DB 
D7DC 
D7DD 
D7DE 
D7DF 
D7E1 
D7E2 


(bc) => nombre de fichero del fichero deseado 
(de) => puntero de record 


Dirección del nombre de fichero dado a hl 
Primer carácter entrada dir, número usuario 


igual a número de usuario dado? 
En' caso de que no => 
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D7E3 Longitud nombre de fichero + extensión 
D7ES 

D7E6 Comodin ”?” en el nombre de fichero dado? 
D7E8 => sobreleer carácter en la entrada dir 
D7EA Carácter de entrada dir 

D7EB comparar con carácter en el nombre dado 
D7EC 

D7EE => los nombres son distintos 

D7FO En caso contrario carácter siguiente nombre dado 
D7F1 Carácter siguiente entrada dir 

D7F2 comprobarlo 

D7F4 

D7F8 

D7FA Máscara de exent al acumulador 

D7FD 

Ds10 

D811 Fichero no hallado 

Da12 Indicativo OK 

p813 


xx * * Borra tabla de asignación, apunta bloques de dir 
D814 


D814 Námero máximo de bloques a hl 

D819 

D81B Divide por 8 el número de bloques 

D81E Corrección, 22 bytes para tabla de asignación 
Da1F 

D820 

pD822 (h1)> => comienzo de tabla de asignación actual 
D825 8 bloques = indicar 1 byte como libre 

D827 Siguiente byte 

D828 Decrementar número 

D829 Borrados los 22 bytes? 

D82A 

D82B => no todos borrados aún 

D82D 

D82F Magnitud del directorio dada en bloques a hl 
D832 

D833 

D835 (h1) => comienzo de tabla de asignación actual 
D838 Apuntar bloques de dir como dispuestos 

D839 

D83B 


xk * £ Dispone bloques de este apunte en tabla de asignación 


D83c Número de apuntes de dir comprobados 

D83D Indicador al comienzo del apunte en registro 

D83E 

D83F 

D840 Offset de la disposición de bloques 

D843 

D844 Número de los apuntes de disposición/apunte de dir 


D846 
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D848g 
D84A 
D84D 
D84E 
De85o 
D854 
D8s5 
D857 
Dese 
D85A 
D85D 
D85e 
DS5F 
D860 
D861 
DB464 
D86B 


Námero máximo de bloques, byte high al acumulador 
Si es O apuntes de 1 byte 
=> apuntes de 1 byte 


No más bloques dispuestos 


Número máximo de bloques a hl 


Número de bloque válido”? 


Vaálido=> disponer/liberar en tabla de asignación 


3 xXx £ £ Disponer/liberar número de bloques en tabla de asignación 


D86c 
D84D 
DS84E 
D87o 
D872 
D875 
D876 
D878 
D87B 
D87c 
D87D 
D883 
D88g4 
Ds8e5 
D88D 
D8s£ 
D8sF 
De89o 


Número de bloques dispuestos 

Dividir número de bloques por 8 

Resultado a de, byte a tabla de asignación 
(h1) => comienzo de tabla de asignación actual 


Saltar número preciso de bytes 
Número de bloques dispuestos a de 


Determinar posición de bit en tabla de asignación actual 


Aplicar OR a la muestra de bits resultante 
y almacenar en tabla de asignación 


xxx £ Busca bloque libre en tabla de asignación 


D893 
D895 
D897 
D89A 
D89B 
D89D 
D8Ao 
DBA3 
DBA4 
DBASs 
DBA7 
D8A8 
DBA9 
DBAA 


Número máximo de bloques a hl 


(h1)> => comienzo de tabla de asignación actual 
b:= contador de bits, c:= muestra de bits 
Apunte de tabla de asignación al acumulador 
Muestra de bits para bloque 

=> hallado bloque libre 

Comprobar bit siguiente 


de:= bits por comprobar 
Ningún bloque más? 
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DBAB => no se halló bloque libre alguno, disc full 

D8AD Decrementar número de bits por comprobar 

DBAE Bucle extendido a 8 bits 

D8BO Byte siguiente a tabla de asignación 

D8B1 Seguir comprobando 

* xx Xx Da núm. de bloque a partir posición de bit, lo pone en tabla asip 
D8B3 Muestra de bits de tabla de asignación al acumulador 
D8B4 Ocupar bloque libre hallado 

D8BS y retirar de tabla de asignación 

D8B6 

D8B8 Número máximo de bloques a hl 

D8BB » 

D8Bc Calcular número de bloque, a hl 

D8BE Indicativo de hallado bloque libre 

D8BF 

Deci1 


X* xk xXx Xx Número bloques de tabla asign. ocupados para indicación de DIR 
D8c2 


D8c3 

D8c4 hl es contador de bloques 

D8c7 Al stack 

peca 

D8cA Número máximo de bloques a hl 

D8cD y a de 

D8cE 

D8Dpo (h1)=> comienzo ALV actual 

D8D3 b:= contador de bits, c:= muestra de bits 
D8D46 Byte de tabla de asignación al acumulador 
D8D7 Posición de bit indicada como ocupada? 
D8D8 => no ocupada 

D8DA Contador a hl 

D8DB Incrementar contador 

DeDc y de nuevo al stack 

D8DD Muestra de bits al acumulador 

D8DE Recoger por rotación siguiente muestra de bits 
D8DF y anotar de nuevo en c 

D8E0o de:= número de bits por comprobar 

DSE1 Número ya nulo”? 

D8E2 => ningún bloque más por comprobar 

D8E4 Decrementar número de bits por comprobar 
D8ES Bucle de bits 

D8E7 Byte siguiente de tabla de asignación 


D8E8s Seguir comprobando 
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xx *x *x Proporciona el número efectivo de bloques ocupados 


DBEA Recoger del stack contador de bloques ocupados 
D8BEB Proporciona disposición efectiva a partir de BSH y hl 
D8BEE Resultado a de 

DS8EF 

D8F1 

xx * *x Determina el número de bloques ocupados del fichero 
D8F2 Comienzo de una entrada de dir en registro de dir 
D8F3 Offset de entradas de disposición de bloques 

D8aF5 

D8F7 d:= bytes tabla asignación, e:z= contador bloques ocupados 
DSFA 

D8Fc Número máximo de bloques, byte high al acumulador 
DSFF Si es O, valor en sólo 1 byte a tabla de asignación 
D90O0 Un byte de tabla de asignación 

D9O01 Incrementar puntero en tabla de asignación 

D902 Byte high número máximo bloques =0, entonces sólo un byte 
D9O04 En caso contrario comprobar byte low 

D9OS 

D906 

D907 Si O, comprobar tabla de asignación 

D908 Ningún bloque ocupado 

DIOA Incrementar contador bloques ocupados 

D9OB Decrementar número 

D9oc Quedan bytes en la tabla”? 

D9O0OE Número a hl 

D9oOF 

D910 

D912 Block-shift al acumulador 

D915 

D91A 

xx qx _%x 

D91c 

D91D bc=> nombre de fichero temporal 

D91E Número de apuntes en registro comprobados 

D91F 4 posibles, 0-3 

D921 

D923 Número de apuntes a de 

D924 

D926 Máximo de apuntes de DIR a hl 

D929 h1l = de? comprobados todos los apuntes posibles”? 
D92C 

D92D 

D92E => leidos todos 

D930 Nuevo registro a buffer de registro 


D933 
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D935 

D937 => buffer de registro, de nuevo al principio 
DIZA Longitud de un apunte en el buffer (32 bytes) 
D93D 

D93E 

xx xx 

D940 Puntero de registro a siguiente inicio de dir 
D941 

D943 Puntero de registro a de 

D944 

D947 

x1xxx% 

D948 

D94A Número de apuntes comprobados/4 

D94D Resultado, número de registros comprobados a de 
D94E 

D95O0 (h1) => número de registro 

D9S5Z3 Recoge registro, número en hl, en buffer de registro 
D956 

D958 Número de apuntes de DIR a comprobar a hl 

D95B 

D9SC hl = de? comprobados todos los apuntes posibles? 
DI9SF 

D950 => leidos todos los apuntes 

D961 

D953 (h1) => bloque de suma de comprobación 

D9466 

D967 Calcular suma de comprobación extendida al registro 
DIGA Es igual a la suma de comprobación almacenada? 
D94B => son iguales 

D95C 

D974 

D975 Error 

D978 

D979 

xx xx 

D97A Número del apunte de dir dispuesto 

D97B Dirección de buffer 

D97C 

D97E Divide hl1/4 

D981 Resultado, número de registros a hl 

D982 

D984 (h1) => buffer de registro 

D987 

D989 Registro de dir a buffer de registro, en caso contrario a disc 
D98c 

D98E Número de registros de dir a comprobar a hl 
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D992 h1l = de? comprobados todos los registros posibles”? 
D995 


D998 

DIA (h1) => buffer de suma de comprobación 

D99D 

D99E Suma de comprobación extendida al registro 
D9A1 y apuntar en buffer de suma de comprobación 
DIAZ 

D9A3 

DIAS Comprueba la correcta posición del nombre de fichero 
D9A7 Error 

D9A8 

DIAA 

D9IAB Incrementar número de apuntes dispuestos 
D9AC 

D9AE (h1) => número de apuntes de directorio 
D9B1 Anotar nuevo número 

D9B2 

D9B7 


xx £ * Comprueba que la posición del apunte de directorio es OK 
D9B8 

D9B9 Número de apuntes de directorio 

DOIBA 

D9BC (h1) => número de apuntes de dir dispuestos 
D9BF Número a de 

D9CO 

D9Cc2 

D9C3 h1 = de, apunte calculado OK? 

D9C6 

D9C7 


xXx Xx * Suma de comprobación extendida al registro, resultado al acumulador 
D9C8 


D9C9 

DICA Longitud de registro 

D9cc 

DICE (h1)> => buffer de registro 

D9D1 Borrar acumulador 

D9D2 suma de comprobación extendida al registro 
D9D3 

D9D8 


* x * *x Comprobar atributo de READ ONLY, bit 7 carácter 1 extensión 
D9D9 

D9DA Primer carácter extensión 

D9DD 


* x * * Comprobar atributo de SYS, bit 7 carácter 2 extensión 
D9DF 

D9EO Segundo carácter extensión 

DI9E3 

D9E4 Carácter al acumulador 


320 El gran libro del flo ara el CPC 


DOES Carry activado con atributo activado 
DIES 
D9E7 


x Xx £ Recoger registro, número en de, en buffer de registro 
D9E8 


DOIEA 

DO9EB Determinar pista y sector a partir de número de registro 
DOEE Leer registro en buffer de registro 

DOF1 Mensaje de error en el acumulador 


x xXx * Escribir registro, número en de, en buffer de sector 
DIF3 


DOF6 

D9F7 Determinar pista y sector a partir de número de registro 
DIFA 

DO9FB Escribir registro en buffer de sector 
DIFE Mensaje de error en el acumulador 
DIFF => error, interrumpir comando 

DAO2 

DAOS 

Xx x Xx * Calcula pista y sector a partir de número de registro 
DAO6 Número de registro 

DAO7 Dirección de buffer para un registro 
DAO8 a bc y 

DAO9 transferir a rutinas del controlador 
DAo0C 

DAOD 

DAOF Offset de pista a hl 

DA12 y bc 

DA13 

DA14 

DA1S Námero de registros/pista a hl 

DA18S Corrección 

DA1O 

DA23 

DA24 Pista en c a BE5S4 para el controlador 
DA27 

DA28 

DA29 (h1) => (A910/A920) 

DA2C 

DA2D Convertir número de registro 

DAZO 

DA31 


DA32 Sector a BES5 para el controlador 
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*X xx * Carga hl con disc parameter header + acumulador 


DA3S5 Suma byte low de DHP actual 

DA38 Resultado a 1 

DA39 Suma byte high, eventualmente con carry 
DA3C 

DA3D High byte a h 

DA3E 


X x x Xx Carga hl con contenido (disc parameter header + acumulador) 
DA3F (HL) =>DPH+acumul ador 


DA42 1d hl, (h1) 

xxx * Carga hl con contenido (DPB+acumul ador ) 
DA45 

DAA6 

DA48 (h1) => inicio disc parameter block 
DA4B Offset deseado 

DA4C 

DA4D 

DA4E Calcula la dirección precisa 

DAAF 

DASO 

DAS1 LD HL, (HL) 


X x Xx * Carga acumulador con contenido (disc param. block + acum.) 
DAS4 

DASS Carga hl1 con contenido (DPB + acumul ador ) 

DAS8 Byte deseado al acumulador 

DAS9 

DASA 


*Rx1x1% 
DASB 
DASE 


xx1xx 
DAGO 
DA68 


xx xx 
DAGSA Dispone EFN, comprueba nombre de fichero 
DAG6D 


* x £ * Dispone expanded filename, comprueba espacios y ”?” 
DASF 


DA71 

DA74 Disponer el nombre de fichero en el buffer 

DA77 

DA78 Longitud del nombre de fichero extensión incluida 
DA7A 

DA7B bc => nombre de fichero 

DA7C Primer carácter del nombre al acumulador 

DA7D *2* comodin 


DA7F En caso afirmativo=> dar salida a bád command 
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DAB1 

DA82 Comprobar si carácter siguiente es ”>?” 

DAB4 Ningún interrogante hallado 

DA85 Parece OK 

.*n11x% 

DAB6 

DASB 

1.1:%:2x 

DA8D Espacio 

DASF Dirección de buffer de registro 

DA92 Disponer fichero 

DA9S 

DA9F 

xXx % £ Dispone nombre expandido de fichero, comprueba si es OK 
DAAO Dispone EFN 

DAA3 => espacio en nombre de fichero, bad command 
DAAS 

111% 

DAAS Espacio 

DAAS Offset de Record-Buffer 

DAAB 

DABS 

xxxx 

DAB6 

DAB7 de=de+iy, buffer para nombre expandido de fichero 
DABA Anotar 

DABB Número de drive activo 

DABE apuntarlo en nombre de fichero 

DABF 

DACO Número de user activo 

DAC3 apuntarlo en nombre de fichero 

DAC4 

DAC6 

DAC7 El nombre de fichero tiene 8 caracteres de longitud 
DAC9 8 espacios a (de) hasta (de+7) 

DACC 

DACD La extensión tiene 3 caracteres de longitud 
DACF 3 veces hFF a (de+8) hasta (de+h0A) 

DAD2 

DADS Borra de (de+h0B) hasta (de+h0D) 

DAD8 b => longitud de nombre de fichero de input, c => hoFF 
DADO de => inicio de expanded filename (EFN) 

DADA h1l => dirección de input filename (IFN) 

DADB 

DADC Dispone EFN si IFN es correcto 

DADF 

DAEO Bad command, filename de input no correcto 


DAE2 Dirección EFN a bc 
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DAE3 

DAE4 de => nombre de fichero 

DAES 

DAES Primer carácter del EFN 

DAE7 Espacio”? 

DAE9 Dar salida a bad command, interrumpir comando 


x x *x *£ Comprueba IFN, dispone EFN con DRIVE y USER 


DAEA Dummy 

xn 1.1113 

DAED Comprobar longitud IFN 

DAEE 

DAF1 

DAF2 Apareció error! Ningún nombre de fichero? 
DAF3 hi 

DAFS 

DAF5 El carácter es ?*:?*? 

DAF8 Si, entonces => 

DAFA Un carácter de IFN, convert. uppercase 
DAFD Comprobar si ”:” 

DAFF Ningún ”?:”? hallado en el nombre 


xx xx Si ?:”*, comprobar validez del número de USER 
DBOO 


DBO2 

DBO3 Salto, si ningún ”:” hallado 

DBOS 

DBO6 o” 

DBO8 Carácter menor que ?0”, por lo que no se trata de una cifra 
DBOA > 

DBOC Carácter mayor o igual a ”:”?, por lo que no es una cifra 
DBOE Es una cifra, restándole h30 se obtiene en binario 

DB10 

DB11 Apuntar cifra en EFN 

DB12 Un carácter de IFN, convert. uppercase 

DB15 20? 

DB17 Carácter menor que *?0”, por lo que no se trata de una cifra 
DB19 py? 

DB1B Carácter mayor o igual a ”:”, por lo que no es una cifra 
DB1D El carácter es una cifra 

DB1E Era 1 la primera cifra? 

DB1F No, error en el IFN, número de USER erróneo 

DB20 Comprobar si la segunda cifra vale de O a 6 (ambos inclus.) 
DB22 

DB24 Segunda cifra >6, número de USER erróneo 

DB2 Apuntar cifra en EFN 

DB26 Un carácter de IFN, convert. uppercase 


* xx x Si noes cifra comprobar validez (lógica) de número de drive 


DB2A >> 
DB2C El carácter es *Q0”?, *R” ... error en el IFN 
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DB2E > a? 

DB30 Carácter menor que ”?A”, error en el IFN 
DB32 Restar ”A”, el resultado da de O a 15 

DB34 Estos son los drives (lógicamente) posibles 
DB35 Un carácter de IFN, convert. uppercase 


* xx x En caso de USER y/o drive, ha de seguir ”*:”?, si no, error 


DB38 Recoger carácter, sobreleer espacio 
DB3B Ahora ha de venir un ?:” 

DB3D En caso contrario, error en el IFN 
DB3E Recoger carácter, sobreleer espacio 
DB41 

DB42 Error, no hay ningún carácter tras ”:” 


xx Xx *£ De IFN determina nombre de fichero y extensión en cuestión 
DB43 


DB44 

DB45 e dal 

DB47 Falta nombre de fichero, sólo dada la extensión 
DB48 Longitud del EFN 

DB4A 

DB4D 

DB4E Ahora ha de venir un ?.” 

DBSO Error, IFN excesivamente largo 

DBS1 Recoger carácter, sobreleer espacio 

DBS4 Longitud de la extensión 

DBS4 Ningún carácter más, entonces extensión = 3 espacios 


xx Xx *x Comprueba carácter para filename y extensión, apunta en EFN 
DB58 ez 


DBSA Si no hay espacios rellenar con espacios 
DBSC 

DBS5D 

DBSE Almacenar temporalmente 

DBSF Tabla de caracteres ”prohibidos*en el nombre 
DB62 Recoger valor de tabla 

DB463 Incrementar puntero 

DB64 

DB45 Fin de la tabla”? 

DB467 Comparar valor de tabla con caracter 

DB48 En caso de desigualdad, siguiente valor 

DB6A Indicativo de valor ”prohibido” 

DB4B Carácter al acumulador 

DB6C 

DB6D 

DB6E Carácter ”*prohibido”?, resto con espacios 
DB7O Contador longitud nombre o extensión 

DB71 Todos los caracteres por? luego => 

DB72 *x” comodin para el resto 

DB74 Si comodin, completar el resto con >?” 

DB77 Carácter OK, apuntar en nombre de fichero expandido 
DB79 Un carácter de nombre de fichero, convert. uppercase 


DB7C Ningún carácter más, rellenar resto con espacios 
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DB7E Carácter de espacio? 
DB8o En caso negativo, comprobar y apuntar 


xxx £k Tirar resto en IFN tras espacio 
DB82 Comprueba si es espacio, si lo es, siguiente carácter 


xx Xx *£ Rellena memoria (de) hasta (de+c) con espacios 
DB85 

DB86 Valor para carácter de espacio 

DB88 

DB8D 


* xx *£ Rellena memoria (de) hasta (de+c) con ”?” 
DB8E ??2*, comodin para un carácter 


xx x £ Rellena memoria (de) hasta (de+c) con carácter en acumulador 


DB9O Corrección precisa 

DB91 Siguiente posición de memoria 

DB92 o eventualmente c=0, en tal caso fin 
DB93 Carácter a memoria direccionada 

DB94 Incrementar puntero 

DB9S Y de nuevo 


* xx * Recoge un carácter, comprueba si long. filename >0 


DB97 Un carácter, comprueba longitud de nombre de fichero 

DB9A La longitud es O, error! 

xx x Xx Prueba si espacio en acum., si lo hay, recoge próximo carácter 
DB9B Espacio? 

DB9D 

DB9E Era otro carácter 

DB9F Recoger carácter siguiente 

DBA2 Comprueba si es espacio, si lo es, siguiente carácter 

DBA4 z 

xx x %£ Recoge carácter de nombre fichero, lo convierte en mayúscula 
DBAS Longitud (restante) de nombre de fichero 

DBAS Longitud <> 0? 

DBA7 Si es O, RETURN 

DBAS (h1)> => puntero de IFN 

DBA9 

DBAA RAM LAM. LD A, (HL)> de RAM 

DBAB Unicamente caracteres ASCII, por favor 

DBAD Convierte en mayúsculas 

DBBO Indicativo byte recogido 
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% xx % Caracteres prohibidos en el nombre de fichero 
DBB2 =>” 


DBB3 .. 

DBB4 o 

DBBS > 

DBB4 e. 

DBB7 Ey? 

DBB8 => 

DBB8 Abrir corchete 
DBB8 Cerrar corchete 
DBB8 Under line 

DBB8 de 

DBB8 Corchete de SHIFT 
DBBE dE sd 

DBBE e 

DBBE 2 

DBBE Backslash 

DBBE Delete 

DBBE Indicativo fin de tabla 


xx % Y Da salida a tres espacios, número de drive actual a c 
DBC4 Mensaje de sistema 1 


DBC4 

3% % % Da salida a *"filename”, número de drive actual a c 
DBcC8 Mensaje de sistema 11 

DBCA 

DBCB Número de drive a c 

DBCE 


3 %% % Da salida a "Drive %: user $”, e=Drive, c=núm. user 
DBDO * 


DBD1 Número de drive 

DBD2 ae 

DBD3 

DBDS5 

DBD4 Námero de user 

DBD7 ac 

DBD8 Mensaje de sistema 12 

DBDA Da salida a mensaje de sistema 
DBDD 

DBDE 

312% % Transfiere con LDIR 32 bytes de hl a de 
DBDF 

DBEA 


xx % Y Divide hl por (acumuladorx2) 
DBEB 
DBF2 
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xx x *£ Compara hl con de 
DBF3 
DBF8 


xx Xx * Carga hl con (hl) 

DBF9 

DBFF 

xxx x% dc00 a dfff no se utilizan 
Dcoo 
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Capitulo 5: Programas y trucos para la DDI-1 


S.1. Errores en MERGE y CHAIN MERGE 


Este capitulo es interesante para todo aquel que compró su 
floppy en los primeros tiempos. Se coló lamentablemente un 
error en el sistema operativo, de modo que al volver a 
Cargar programas con las órdenes MERGE y CHAIN MERGE aparece 
injustificadamente el mensaje de error EOF met. 


Dado que la firma Amstrad sabe de la existencia de este 
error, “en versiones posteriores del sistema operativo ya no 
aparecerá es el caso del CPC 664 y del CPC 6128. Aquellos 
de entre ustedes que no sepan en cual de los dos casos se 
halla su floppy, pueden dilucidarlo en este capitulo. 


Como ya mencionamos, y quizá hayan comprobado en su propia 
carne algunos de ustedes, el AMSDOS contiene un ligero fallo 
en el sistema operativo. No desista por ello; los sistemas 
más sotisficados y caros todavia tienen innumerables fallos 
en el sistema operativo. 


Y que no cunda el pánico; su problema quedará resuelto, para 
algo tiene usted un manual en sus manos. Y no le daremos una 
sino dos propuestas de solución. Pero, ¿dónde y cómo se 
produce este error?. Quizá no tuvo hasta ahora problema 
alguno en la utilización de las órdenes MERGE y CHAIN MERGE. 
Puede ser. De hecho, en rutinas cortas es relativamente 
improbable que aparezca un error. 


Compruébelo mediante nuestro ejemplo: 


NEW 
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10 PRINT x3"Ha funcionado." 


20 GOTO 20 
SAVE "dos" 
NEW 


Tras ello 
esperaba. 
manual de 


10 PRINT "Lo intentamos..." 
20 x=1 

30 CHAIN MERGE "dos" 

RUN 


puede LiSTar el programa. 


Todo como se queria y 


(Ver también el capitulo correspondiente en el 


BASIC CPC). Introduzca ahora 
NEW 


26 PRINT x3"Ha funcionado” 
27 END 


SAVE "dos" 


NEW 

10 PRINT "Lo intentamos..." 
20 x=1 

25 CHAIN MERGE "dos" 


lo siguiente: 


Pero atienda a los números de linea; son importantes en 


nuestro ej 


emplo. 


Tras poner en funcionamiento el programa, obtendrá un 
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EOF met in 25 


Sabe que EOF significa End of File, y se preguntará, no sin 
razon, Cómo rayos puede el ordenador tropezar en un End of 
File. Exactamente éste es el error en el sistema operativo. 
Hemos ¡incitado la aparición de estemerror al incluir en 
nuestro ejemplo el número de linea 26. Cuando, al volver a 
cargar, se halla un tia (hexadecimal) = 26 (decimal), usted 
obtiene el mensaje de error EOF met. El código 26 no 
aparecerá en un programa como carácter ASCII, pero si en la 
codificación de programas. 


En el almacenamiento en disco de un programa se escribe, 
para cada linea del programa, su longitud y dirección 
inicial en memoria. Supone tres caracteres por linea, y un 
riesgo muy grande de que uno de estos tres bytes resulte ser 
tia. Además, el número de linea se almacena como número 
entero en formato de 16 bits. También aqui puede aparecer un 
Ghia (como en nuestro ejemplo). La probabilidad es por tanto 
de 1: (256/5) = 1:51,2 por linea, lo que significa que, 
estadisticamente, tras 52 lineas, habrá aparecido un "EOF". 
Pero en la práctica suele bastar con menos lineas. 


Un modo de solucionar esto es almacenar los programas como 
ficheros ASCII. Con ello, los programas ya no son 
codificados sino que se escriben carácter a carácter, tal y 
como ocurre en la pantalla. Se produce un alargamiento no 
critico de los programas; un programa de 30 K pasa a ocupar 
unos 32 K. En nuestro ejemplo deberia haber introducido lo 
siguiente: 


SAVE "dos",a 


La ja significa fichero ASCII. Esta primera solución es 
también la más sencilla. Pero si tiene programas protegidos 
que desea volver a cargar (por ejemplo), esta solución le 
sirve de bien poco. 
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Como alternativa podemos ofrecerle el siguiente programa, 
que ejecuta la orden CHAIN-MERGE tal y como conocemos del 
BASIC de cassette y esta descrito en el manual. 


1” 

2*Firmware-Patch para CHAIN-MERGE 
3” Amstrad CPC X% DDI-1 

4” 

s>» 

6” 

10 MEMORY HIMEN-41 

20 DEF FNmsb(a)=%FF AND INT(a/256) 
30 DEF FNlsb(a)=x%FF AND UNT (a) 

40 FOR i=HIMEN+1 TO HIMEN+38 

50 READ byte 

60 POKE i,byte 

70 NEXT i 

80 POKE HIMEN+3,FNI1 sb (HIMEN+39) 
90 POKE HIMEN+4,FNmskb (HIMEN+39) 
100 POKE HIMEN+9,FN1 sb (HIMEN+41) 
110 POKE HIMEN+10,FNmsb (HIMEN+41) 
120 POKE HIMEN+18,FNI1 sb (HIMEN+1) 
130 POKE HIMEN+19, FNmsb (HIMEN+1) 
140”*CAS IN CHAR 

150 POKE HIMEN+39,PEEK (BC80+0) 
160 POKE HIMEN+40,PEEK (£BC80+1) 
170 POKE HIMEN+41,PEEK (%BC80+2) 
180 £BC80+0,2£C3 

190 POKE 2BC80+1,FN1 sb (HIMEN+1) 
200 POKE £BC80+2,FNmsb (HIMEN+1) 
210 DATA te5, :2A, 00, 00, 422, 80, bc 
220 DATA Kt3a,*%00,%00,%32,%82,%bc 
230 DATA tcd, 80, %bc,e21,%00, 00 
240 DATA £$22,%81,%bc,%21,%80, Ebc 
250 DATA $36,%c3,t%e1,%d8,%c8,%fe,%1a 
260 DATA £37,%3f,%c0,8%b7,837,%c9 
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Una vez tecleada esta rutina, deberia almacenarla en disco. 
Cuando tenga un programa que utilice el comando CHAIN-MERGE, 
deberia poner esta rutina al principio de dicho programa. 
Tras la ejecución de la rutina puede borrar las lineas 
correspondientes mediante DELETE (también posible en mel 
programa). Aqui sólo se puede decir de nuevo lo que es 
necesario en todas las diferencias de los distintos 
ordenadores Amstrad "compatibles": en caso de que sea 
poseedor de um CPC 664 5 de un CPC 6128, tiene la suerte de 
no tener este fallo en su sistema operativo, pero: en caso 
de que desee escribir software, que pueda luego ser usado 
por la mayor cantidad de gente, ha de situarse siempre en el 
caso más desfavorable, por motivos de compatibilidad, 


que en 
este caso es el del CPC 464 con sus debilidades. 
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5.2 Mensajes de error 


El presente capitulo se ha de ocupar de los mensajes de 
error de disco, que, de tanto en tanto, ha de enviar el 
ordenador Amstrad. Dado que,tanto el CPC 664 como el CPC 
6128 ya ofrecen una posibilidad de intercepción de mensajes 
de error (aunque bien poco cómoda), presentaremos aqui un 
programa ejemplo para el CPC 464. En cualquier caso, en el 
capitulo 5.3 hay también una rutina de intercepción de 
errores para el CPC 664 y el CPC 6128. El esquema de esta 
rutina de intercepción de errores es la misma para los tres 
ordenadores;. a pesar de ello se recomienda el estudio del 
presente capitulo. 


Prácticamente todos los usuarios reaccionan ante la 
aparición mensajes de error frunciendo el cefío, ya que les 
recuerdan los desesperados ¡intentos llevados a cabo para 
proteger su programa de tales mensajes de error de la unidad 
de discos. 


Los mensajes de error son algo inherente al trabajo con 
ordenadores. Todos cometemos errores, y el ordenador los 
muestra en pantalla. De igual modo, el floppy tampoco acepta 
todo lo que le es transferido. Si se intenta, por ejemplo, 
cargar un fichero inexistente, su lapidaria observación 
será: 


Filename.Ext not found 


Sabrá entonces que, oO bien introdujo incorrectamente el 
nombre de fichero, o.bien insertó un disco equivocado. La 
unidad de disco se tomb el mayor empeño en servirle antes de 
enviar el mensaje de error. Si no se da extensión (tipo de 
fichero) alguna, el floppy DDI-1 realizará tres intentos 
para hallar el fichero deseado. 
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1) Como Filename. 
2) Como Filename. BAS 
3) Como Filename.BIN 


Sólo tras verificar error en los tres intentos le dará el 
floppy el citado mensaje de error. En caso de que indique la 
extensión, tan sólo se realiza un intento. Ejemplos al 
respecto serian LOAD "archivo.bas” u OPENIN "datos.dat",etc. 


En el. capitulo 1.5 se describió el modo de evitar algunos 
errores. Pero no siempre pueden aplicarse fructiferamente 
estas ideas de programaci bn. 


Existen errores como Disc Missing (Falta disco), entre 
otros, imposibles de evitar por programación. 


Para que ello ocurra, no es indispensable que la unidad este 
vacila. Con que el disco no esté totalmente centrado, ya 
obtendrá el mensaje de error siguiente: 


Drive A: Disc Missing 
Retry, Ignore or Cancel”? 


Otro ejemplo; cuando su disco ya no este en buenas 
condiciones, y aparezca un Read Fail (Fallo de lectura) como 
mensaje de error. La lista de posibilidades podria alargarse 
a voluntad. Ello no seria tan grave, y llegaria incluso a 
constituir una nueva ventaja del floppy si no existiera una 
traba decisiva. Si durante el transcurso de un programa el 
floppy detecta un error, sea cual fuere, el texto de 
diagnóstico de error aparece en pantalla, y el programa es 
inmediatamente interrumpido. No es tan grave -dirá usted-, a 
mi también me pasa cuando tengo un error en el programa. Y 
es cierto, pero: 
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Los programas pueden depurarse casi totalmente. Pueden, por 
ejemplo, descartarse totalmente los errores de sintaxis y 
comprobar e interceptar entradas erróneas por parte del 
usuario. De este modo pueden interceptarse prácticamente 
todos los errores imaginables durante el transcurso de un 
programa. 


Además resulta posible utilizar el comando BASIC ON ERROR 
GOTO para que, ante un mensaje de error durante el 
transcurso del programa, éste no se destruya sino que 
simplemente se interrumpa. 


Asi, ante un error se interrumpe el normal transcurso del 
programa, la posición se memoriza temporalmente y el 
programa salta a una subrutina que eventualmente puede 
reaccionar ante dicho error. Una programación de este tipo 
puede interceptar ¡una interrupción del transcurso del 
programa al 100%. 


Pero ¿que haremos para averiguar, en el programa, si hay o 
no un disco en la unidad? Puede informarse al usuario del 
programa que inserte el disco, pero ésto no representa sino 
que una de las posibles causas de error, y, por tanto, de 
mensajes. Bueno, dirá usted, usemos el comando ON ERROR GOTO 
que es realmente práctico. 


Pero lo malo es que ON ERROR GOTO no tiene efecto alguno 
ante mensajes de error provinientes del floppy. A pesar de 
ello, los mensajes de error siguen siendo enviados y el 
programa interrumpido. 


Llegados a este punto hay que observar lo siguiente: el 
Amstrad CPC 664 y el CPC odó6128 ofrecen la posibilidad de 
interceptar mensajes de error mediante el comando ON ERROR 
GOTO. La variable de error ERR contiene entonces el valor 
32. La variable de error DERR contiene además el número de 
error suministrado por el DOS. Asi que el programa no se 


Consejos y trucos para el floppy 337 


interrumpe, pero el texto de error aparece en pantalla. Otra 
desventaja adicional es que no se puede preguntar 
directamente de qué error se trata, dado que ERR contiene 
siempre el valor 32 y que la variable DERR tampoco es 
demasiado explicita al respecto. 


Asi que un buen consejo en este tema seria de agradecer. 
Hasta el más curtido programador convendrá en ello. Puede 
imaginarse lo desagradable que resulta haber introducido 200 
juegos de datos, disponerse a almacenarlos en disco, y que 
el floppy de el siguiente mensaje: 


Disc Full 


El programa se interrumpe, y usted puede volver a empezar a 
introducir sus 200 juegos de datos. Un programa tal no 
ofrece precisamente un aspecto profesional. La primera 
obligación de la programación profesional es salvaguardar 
los programas de la aparición de errores. Y el floppy es muy 


dado a los errores. 


En este capitulo hallará una rutina en lenguaje máquina que 
relegará este problema a una cuestión del pasado. Los 
errores ya no son llevados a la pantalla y los programas no 
se interrumpen. Se hubiera podido hacer de modo que el 
programador no hubiese notado en absoluto el envio de un 
mensaje por parte del +floppy. Pero ello no es deseable, ya 
que el conocimiento del error no es problemático, lo único 
que interesa es que en ello no se interrumpa el programa. En 
esta rutina el problema se resolvió de modo que, ante un 
mensaje de error, la unidad de disco envia el mensaje 


Unknown user function 


Este mensaje aparece de hecho en muy raras ocasiones, por lo 
que fue elegido para distinguir en el programa los errores 
de floppy de otros errores. Todos los mensajes de error 
tienen sus códigos correspondientes, que pueden ser llamados 
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en las variables estándar ERR. También podemos preguntar por 
la linea en la que apareció el último error. Para ello se 
utiliza la variable estándar ERL. 


Asi que cuando aparece un mensaje de error del floppy, es 
interceptado y temporalmente almacenado en una memoria 
intermedia especial. El programa no se interrumpe y se 
genera un error UNKNOWN USER FUNCTION, de código de error 
18. Este puede ser perfectamente interceptado mediante la 
orden ON ERROR GOTO. Cabe ahora buscar en la rutina de error 
correspondiente qué error fue modificado. Si la variable de 
código de error ERR vale 18, el error proviene del floppy. 
Puede transferirse el texto a una variable de cadena 
mediante la rutina para determinar exactamente el error. En 
el programa puede actuarse consecuentemente según el error 
aparecido. Resulta posible activar o desactivar la rutina en 
cualquier momento. 


Un programa a titulo de ejemplo 


10 ON ERROR GOTO 1000 

20 CALL ein: *rutina de error activa 
30 OPENIN "cifras" 

40 WHILE NOT EOF 

50 INPUT 49,a 

60 PRINT a, 

70 WEND 

80 CLOSEIN 

90 CALL aus : END 

1000 IF ERR<>18 THEN RESUME NEXT 
1010 ds$="+":CALL msg, Ids$ 

1020 PRINT "Disk: "3ds$ 

1030 RESUME 90 


Reconocerá que las rutinas de error son llamadas mediante la 
orden CALL. Existen tres direcciones distintas de llamada: 
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Call ein Mediante Call ein activa usted la rutina de 
intercepción de errores. Se desvia una gran 
cantidad de vectores del sistema operativo. 
De otro modo no puede resolverse el problema. 
A partir de este momento ya no aparecen en 
pantalla los mensajes de error, sino que se 
interceptan y almacenan en una memoria inter— 
media. Tras un mensaje enviado por el floppy 
se genera un Unknown User Function. Tal error 
puede ser interceptado mediante ON ERROR GOTO 


Call msg,9a$ Se transfiere el último mensaje de error 
notificado a la variable de cadena a$ (cual-— 
quier otra variable de cadena resulta igual- 
mente válida). Preste atención a que la va- 
riable a$ haya sido previamente declarada, 
basta con un a$=""; en caso contrario obten- 
dria un IMPROPER ARGUMENT (argumen. impropio). 


Call aus Se desconecta de nuevo la rutina de intercep- 
ción de errores. A partir de ahora vuelven a 
aparecer en pantalla los textos de error. Se 
recomienda volver a desconectar las rutinas 
al fin de cada programa, ya que en caso con- 
trario se asombrará cuando un FILE NOT FOUND 
no fuera notificado como de costumbre. 


¡En la utilización de estos comandos CALL, se da por 
supuesto que las rutinas se hallan en memoria! 


Explicación del programa de ejemplo: 


Linea Explicación 


10 Se define que tras un mensaje de error el programa 
prosigue en la linea 1000. 
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20 Se activa la rutina de error. A partir de este 
momento, los mensajes de error ya no son mostrados 
en pantalla por el floppy sino que serán intercep- 
tados y temporalmente almacenados. 


30 El fichero secuencial "cifras" es abierto. En caso 
de que no exista, se genera un "File not found". 


40-80 Si el fichero pudo ser hallado, se leen las cifras 
y se les da salida. 


90 La rutina de intercepción de errores vuelve a ser 
desconectada y finaliza el programa. 


1000 Aqui se comprueba si se trata de un error debido 
al floppy. En caso negativo, el programa prosigue 
inmediatamente tras el error. 


1010 Se declara la variable ds$. Ello es necesario para 
no obtener "Inproper argument" en Ads$. Tras ello 
se transfiere el texto de error proporcionado a la 
variable ds$. 


1020 El texto transferido es editado a pantalla. Esto 
es únicamente una de las muchas aplicaciones posi- 
bles. 

1030 El programa prosique en la linea 90. 


Esto como ejemplo de utilización. Otro ejemplo de cómo 
trabajar muy provechosamente con la rutina de errores lo 
constituye el programa de gestión de ficheros del presente 
capitulo. 


Se ha mostrado como muy práctico y útil el crear y comprobar 
en el programa los llamados flags —-banderas o semáforos-. Se 
puede reconocer en el transcurso del programa si ha 
aparecido o no un error y reaccionar en consecuencia. 
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Ello podria tener en el ejemplo el siguiente aspecto: 


10 ON ERROR GOTO 1000 

20 CALL ein : ?rutina de error activa 

30 errflg=0 : OPENIN "citfras” : IF errflg THEN 100 
40 WHILE NOT EDF 

50 INPUT 49,a 

60 PRINT a, 

70 WEND 

80 CLOSEIN 

90 CALL aus : END 

100 IF RIGHTS (ds$,9)="not found” THEN REM reacción 
110 PRINT "Disk -—— "3ds$ 

120 END 

1000 IF ERR<>18 THEN RESUME NEXT 

1010 ds$="+" : CALL msg, 2Ids$ 

1020 errflg=1 

1030 RESUME NEXT 


En este ejemplo puede ver que tras la instrucción OPENIN se 
comprueba si existe un error. Si no existe error alguno, 
prosigue el transcurso normal del programa. 

Pero si existe algún error, se comprueba si se trata de un 
"File not found". Si efectivamente lo es, se puede 
reaccionar en consecuencia (por ejemplo modificando el 
nombre de fichero). En caso contrario se da salida al 
mensaje de error. Naturalmente pueden hacerse aqui todavia 
otras consideraciones. Ante un Drive A: Disc Missing se le 
podria pedir al usuario, en lenguaje comprensible, que 
inserte un disco. 


Con este modo de tratamiento de errores se puede determinar 
mediante una apertura de prueba de un fichero si este 
fichero ya existe, y abrirlo en caso de que sea necesario 
hacerlo. 
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Como ve, las posibilidades son múltiples y la utilización 
sencillisima. 


Puede ubicar la rutina de intercepción de errores en 
cualquier zona de memoria. Está ¡impresa en un listado 
assembler para aquellos de entre ustedes que programen en 
lenguaje máquina. Para los demás, hay un cargador BASIC para 
situar la rutina en lenguaje máquina en cualquier zona. La 
rutina ocupa 229 bytes (iúnicamente!'). Realmente un gasto 
minimo para la utilidad que tiene. En la linea 70 del 
cargador BASIC puede poner la dirección de inicio que ha de 
tener el programa. Si tiene un programa en el que no 
aparezca ningún comando SYMBOL AFTER, puede ubicar su rutina 
en la zona superior de memoria para restar la minima memoria 
al BASIC. 


En el BASIC de cassette dispone usted de 43533 bytes para 
sus programas y datos. El limite superior de la memoria se 
halla en %AB7F. Cuando conecta la unidad de discos se ocupa 
algo de memoria para el DOS y los buffers de entrada y 
salida. Tras la conexión HIMEM está en 2£A67B y usted dispone 
todavia de 42249 bytes. Pero el DOS precisa aún 4096 bytes 
para los ya mencionados buffers de entrada y salida. Estos 
son, en cualquier caso, reubicables (al contrario que la 
memoria de sistema). Situamos esta memoria mediante: 


OPENOUT "dummy" 
MEMORY HIMEM-1 
CLOSEOUT 


Ahora obtenemos para HIMEM el valor £967A. Quedan aún 38152 
bytes libres. Asi que enel caso más favorable el limite 
superior para BASIC está en £967A. Nuestra rutina tiene una 
longitud de 229 bytes y necesita, además, 40 bytes como 
buffer para el texto del mensaje de error. Asi que 
calculamos 29674 - 229 -— 40 = £956D y hacemos que nuestra 
rutina comience en *%956D. Ponga este valor en la linea 70 
del cargador. 
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Si utiliza el comando Symbol After, ha de ubicar la rutina 
en la memoria a mayor profundidad. Para ello desconecte y 
vuelva a conectar su ordenador. Luego, introduzca 


Symbol After n 


Introduzca, en lugar de n, el mayor valor que aparezca en el 
programa. Después, introduzca 


OPENOUT "dummy"” 
MEMORY HIMEM-1 
CLOSEODUT 


PRINT HEX$ (HIMEM-229-—40) 


Obtendrá, con Symbol After 190 por ejemplo, el resultado de 
293DD. Defina +93DO como dirección inicial. Eso es todo. 


Cree de este modo, y de momento para practicar, una rutina 
uicada en 9650. Podrá utilizarla en la mayoria de 

programas, mientras no utilicen comando symbol after alguno 
y no incluyan otras rutinas en código máquina. Luego, 
almacene en disco este fichero, dado que es más sencillo 
leer la rutina de ¡intercepción de errores del disco en 
programas, que encadenar cada vez todas las lineas DATA al 
programa. Si desea utilizar por fin la rutina de 
intercepción de errores en un programa, observe el siguiente 
orden: 


1) Creación del fichero binario de programa mediante el 
programa cargador BASIC y almacenamiento del programa en 
disco (por supuesto en el disco en el que está almace- 
nado el programa que precisa y carga esta rutina). 
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2) Intercalar la rutina en el programa. También aqui es 
importante el orden en que ello sucede ya que en caso 
contrario pueden perderse ¡innecesariamente 4096 bytes. 
Ello ocurre cuando en primer lugar se carga la rutina, 
se rebaja luego el limite superior de memoria y sólo 
entonces se define el buffer. 


Un programa en el que se leyera la rutina de intercepción de 
errores deberia tener un aspecto similar a este: 


10 ON ERROR GOTO 20000 ”*rut. intercepción 
20 LOAD "ERROR.BIN" 

30 MEMORY 2:9650-1 

40 OPENOUT "dummy" 

SO MEMORY HIMEM-1 

60 CLOSEQOUT 


7O . 
geo . 
go . 


Ya reconoce el orden. En primer lugar ha de generarse la 
rutina y almacenarla em disco bajo el nombre "error.bin"; 
por descontado que resulta posible cualquier otro nombre, 
que puede elegirlo en el cargador. 


El programa cargará en primer lugar este fichero, el limite 
de memoria será después fijado justo delante de nuestra 
rutina, para evitar que dicha rutina sea sobreescrita por 
variables o por los buffers del DOS. Sólo entonces se ubican 
los buffers del DOS y se rebaja de nuevo el limite. Ahora ya 
no puede ser sobreescrita. Lo más práctico antes de utilizar 
programas de este tipo es que desconecte y vuelva a conectar 
el ordenador, ya que el haber tenido previamente dispuesto 
el buffer del DOS o el limite rebajado de algún modo puede: 
producir complicaciones. 
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Tras todo ello lo mejor es definir cuatro variables más que 
puede precisar en el programa en cualquier momento. 


MSG=2,9650+3 
AUS=2,9565+6 E AEREO 
DS$= ”w 
MSG = BASE + 9 


AUS = BASE + 6 


Los valores, evidentemente, han de ser consecuentemente 
cambiados para otra dirección inicial. Se trata de las 
direcciones de llegada para las distintas rutinas. Le 
deseamos mucho éxito en la utilización de estas rutinas. 
Pero antes de que se lance a teclear el cargador BASIC: en 
el presente capitulo se halla otro paquete de rutinas que 
posibilitan el almacenamiento relativo de datos. Si desea 
usar almacenamiento relativo de datos, mejor teclee el 
cargador BASIC del almacenamiento relativo de datos; lo 
contrario seria perder demasiado tiempo. 


Los usuarios del CPC 664 y del CPC 6128 que encuentren 
innecesaria la rutina de errores porque su BASIC ya la 
incorpora, deben tener en cuenta lo siguiente: 


1) Los textos de error aparecen en pantalla; ello no es 
muy cómodo para programas profesionales. 


2) No tiene compatibilidad con los CPC 464. 
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3) Consultando la variable ERR puede determinarse la 
existencia de un error de floppy, pero no se obtiene 
el mensaje de error concreto, ni siquiera utilizando 
la variable DERR. No se puede pues diferenciar un 
DISC-FULL del mensaje de error DISC 1S MISSING. 


5.2.1 Comentarios a la rutina de intercepción. ¿Cómo se usa? 


Para interceptar mensajes de error se precisan algunos 
conocimientos del interior del CPC, ya que ha de llevarse a 
cabo una ¡incursión nada despreciable a la vida intima del 
sistema operativo. Retomaremos la posibilidad del CPC de 
desviar ciertos vectores. Haremos frecuente uso de ello. 


Cuando el floppy envia a pantalla un mensaje de error, se 
efectúa una llamada ala rutina del sistema operativo TXT 
OUTPUT en *%KBBAS. Esta rutina sirve para dar salida a 
páantalla a un carácter en el acumulador, a lla ventana 
actual. Esta rutina es desviada, parcheada en el argot. 


Asi que la rutina de intercepción se activa y ejecuta antes 
que la rutina TXT OUTPUT normal, y ello con cada carácter 
que ha de aparecer en pantalla. En esta rutina se comprueba 
si el carácter a imprimir proviene del floppy. Ello se 
realiza comprobando en el stack (la pila) la dirección de 
retorno de salto. La ROM de floppy se halla en la zona 
superior a K£C000. También se halla aqui el sitema operativo 
del BASIC. La rutima de transmisión de mensajes de error se 
halla en la zona xCBOO-K£CBFF de modo que simplemente hemos 
de consultar el byte alto de la dirección de retorno del 
salto. Asi que si se llama desde esta zona a TXT OUTPUT, se 
trata de un carácter “del floppy, que sera interceptado por 
la rutina y temporalmente almacenado para su posterior uso. 


Al mismo tiempo se activa un flag para poder comprobar 
posteriormente si apareció un error. El flag sirve además 
para interceptar el mensaje BREAK. Y es que éste no proviene 
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de la ROM de floppy, sino de la ROM de BASIC "normal". Todas 
estas cosas se llevan a cabo en la rutina OUTCHK (ver 
listado Assembler). En esta rutina se parchean (desvian) los 
vectores, en la rutina RESET se les devuelven sus valores 
normales. : 


Cuando el floppy ha dado salida al mensaje de error, salta a 
la ROM de BASIC y precisamente a la posición en la que se 
interrumpen los programas. Se da salida al mensaje BREAK y 
se interrumpe el programa. Aqui hemos de desviar el vector 
Ready Modus para evitar que puedan interrumpirse los 
programas. En esta rutina se comprueba si está activado el 
flag de error, ya que se puede llegar con ello al Ready 
Modus sin aparición de mensaje de error. Si el flag de error 
está activado, se genera el mensaje de error +18 (Unknown 
User Function), que puede ser posteriormente interceptado. 


Tenemos finalmente la rutina GETTXT que sirve para 
transmitirnos al BASIC el mensaje de error, de modo que 
obtenemos el mensaje en texto comprensible, contenido en una 
variable de cadena cualquiera. 


La rutina KWC sirve para enviar a la pregunta 

Retry, Ignore or Cancel 
una C por Cancel. De este modo se reconoce inmediatamente el 
error, y se interrumpe el desarrollo del programa. 
¡ATENCION -—- IMPORTANTE !! 
Si da salida al directorio de un disco, estos caracteres se 
interpretan también como un error, dado que provienen 
exactamente de la misma zona de memoria que los mensajes de 


error. Ello es válido tanto para la orden IDIR como para la 
CAT. ¡Cuando la rutina de errores está conectada, la orden 
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IDIR mo funciona! Si desea utilizar este comando use: 


CALL aus : IDIR : CALL ein 


En la rutina se trató la orden CAT de un modo especial. 
También sus vectores fueron desviados, de modo que el 
comando CAT ha de usarse como siempre. 


Cargador BASIC de rutina intercepción errores para CPC 464: 


10 OIC ANNAN RARA RARA RARA RARA 

20 ?*x** Rutina de intercepcion de errores XXXXXXX 

30 ?"xxxkx (C) 1985 by DATA BECKER GmbH JS 22/3/85 xk 

BO IOIOOIOIOIOIOIOIOIRIOIOIRICOIOORIO NODO 

s0 > 

60 DEFINT a-z 

70 adresse = %A000 : ”*Direccion inicial para rutina 

80 : 

90 DATA 2C3,2%09,%51,203,%83,251,2%C3,2:AC-251,83E,203,28 32,01, 
LAC, 32, L5A 

100 DATA %BB,%32,%06,%BB,%32,%9B,%BC,%21,%60,%51,%22,%02, %+AC 
,%421,%30,%51 

110 DATA 222,%5B,%9BB,%21,%74,%51,%22,%07,%BB,%21,%D1,%51.%22 
, PC, UBC, UC 

120 DATA 2E3,%F5,%7C,8FE,%CB,%20,%1E,2%3E,%01,%32,%E3,251,%F1 
» LES, %2A, UE4 

130 DATA 2:51,%FE,%0A,%928,%0B,2%77,2%23,8%7D,%FE,2%28,2%20,2%01,%2B 
,%422,%E4,%51 

140 DATA 2.E1,%F5,%F1,%E3,%C9,2%30,%E3,251,2%B7,%20,2F7,%F1,%E3 
» «CF, 00, 794 

150 DATA 2£3M,2%E3,%51,%B7,%C08,2%AF,%32,%E3,2%51,%21,%£6,2%51,422 
,%E4,%51,%1E 
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150 DATA 2£12,2C3,294,%CAM,2F5,3A,1E3,%51,%B7,%20,204,2%F1,%CF 
»%«3C,9A, UF1 

170 DATA 23E,2%43,2%C9,%1E,%02,%FE,%01,%C0,2%DD,%5E,%00,2%DD, 256 
¿»%01,%:0E, FF 

180 DATA 221,2 E£6,%51,%7E,%+FE,%0D,%23,%28,%FA, U2B, ES, U42E, OC 
¿523,8 7E,%FE 

190 DATA £0D,2%20,2%F9,%79,412,4£1,%EB,2%23,%73,823,8472,4C09,%3E 
¿%09,%32, 401 

200 DATA 2%AC,2%3E,Y4CF,2%32,%5M, 4BB,932,%06,%BB,%3E, UDF,%32,2%7B 
, «BC, 421,%00 

210 DATA 294,%22,2%5B,%BB,%21,%3C,2994,%22,%07,v+BB,%21,%8E,% M8 
,»422,%49C, UBC 

220 DATA 2£C9,%F5,%E5,%CD,%AC,%51,%E1,%F1,2%CD,97B, BC, ES, «FS 
»%CD,%09, 251 

230 DATA +F1,%E1,2%C9,%00,%+E6,%51 

240 : 

260 FOR i=adresse TO adresse+tES 

270 READ a 

280 POKE i,a 

290  —s=sta 

300 NEXT 

310 IF s<>28065 THEN PRINT CHR$(7) "xxx Error en DATAS xxx" : 
END 

320 : 

330 DATA 201,%09,%04,%83,207,%ac,%18,%60,%1e,%30,224,2%74,%2a 
s+dl,t3a, tez 

340 DATA 23f,%e4,%4e,t%e4,%56,%e3,%61,%e3,%67,%e3,%6a,t%e6, 6d 
¿%e4,%76,%e3 

350 DATA 291,%e6,%d4,%ac,%de,109,%e4,%e6 

360 : 

370 FOR i=1 TO 20 

380 READ of1,o0f2 

390 adi=adresse+of2 

400 FPOKE adresse+of1,ad1 AND 255 : ”Byte bajo 

410 POKE adresse+of1+1,INT(ad1/256) AND RFF 

420 NEXT 

430 : 

440 INPUT "Quiere almacenar el fichero 7? (S/N) ",as$ 

450 IF UPPER$(a$)="S" THEN INPUT "Nombre de fichero : ",b$ : 
SAVE b$,b,adresse, $E8 
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5.3 Gestión de ficheros relativos 





En el capitulo 1.5 aprendió la programación de ficheros 
secuenciales, y estará ya interesado en la gestión de 
ficheros relativos que brinda realmente algunas ventajas 
dignas de ser consideradas. Este modo de programación no es, 
de todos modos, el óptimo en cualquier caso: especialmente 
en utilidades menores resultaria frecuentemente sin sentido 
su utilización, ya que ocuparia más tiempo y espacio que la 
programación secuencial. La gestión de ficheros relativos es 
interesante, cuando hay que realizar frecuentes correcciones 
y accesos al fichero. Aparte de las distintas exigencias que 
ofrecen al usuario los almacenamientos relativo y 
secuencial, existen otras diferencias agravantes. 


En primer lugar, ya no es necesario leer completamente un 
fichero, pasándolo a la memoria, para poder elaborarlo. 
También puede olvidarse de los complicados bucles para la 
búsqueda O lectura en el fichero de un juego de datos en 
concreto. Existen nuevas reglas para ello, por las que nos 
hemos de regir: hay que reflexionar detenidamente cual será 
la longitud máxima de un juego de datos (¿cuántos caracteres 
tiene nuestro juego de datos?), y qué número de juegos de 
datos contendrá nuestro fichero (¿cuántos juegos de datos 
queremos elaborar?). Hasta ahora, en la gestión secuencial 
de fichero, podia prescindir de esta reflexión previa - si 
bien cual quier programador serio valorará siempre la 
magnitud de sus ficheros desde el principio, aunque sea por 
el simple motivo de tener una idea de la cantidad de juegos 
de datos que caben en un disco. 


Efectuemos un cálculo de este tipo de la mano de nuestro 
ejemplo del capitulo 1.5 -— recordará nuestra agenda 
telefónica, con los tres campos de datos: 
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Campo 1) Apellido 
Campo 2) Nombre 
Campo 3) Número de teléfono 


Supongamcs que deseamos almacenar 50 números de teléfono 
tales; tendremos, por tanto, 50 juegos de datos. 


Para poder admitir en su caso más números de teléfono, 
establecemos 100 juegos de datos. Hemos de determinar aún la 
longitud de los juegos de datos. Ello se lleva a cabo 
asignando a cada campo de datos una longitud máxima, que no 
puede ser  sobrepasada en el programa. Asi que debe vigilar 
que este limite sea respetado ya que lo contrario surgen 
complicaciones. Esto no es una chapuza, ni resulta incómodo; 
hallará esta limitación en toda gestión de ficheros 
relativos, incluso en los mayores ordenadores. La longitud 
de juego de datos es un elemento importante para el 
desarrollo sin conflictos de los cálculos en los que hay que 
hallar un determinado juego de datos. 


En "nuestra" gestión de ficheros relativos dispone usted 
incluso de un cierto margen: puede sobrepasar los limites de 
campos de datos individuales, mientras mantenga 
correspondientemente recortado otro campo de datos. Ello se 
hizo para estructurar con una cierta flexibilidad la gestión 
de ficheros, pero no en todos los sistemas es asi. Sólo ha 
de vigilar que no se sobrepase la longitud conjunta. Pero 
volvamos a nuestro ejemplo: 


Ahora hemos de asignar las longitudes máximas, es decir, el 
número máximo de caracteres que puede tener cada campo de 
datos. Tomemos, por ejemplo, la siguiente asignación: 


352 El gran libro del floppy para el CPC 


Apellido: 25 caract. 





Nombre: 15 caract. 


Teléfono: 15 caract. 










FS | Separadores: 3 caract. 


Tceal: 58 caract. 


Asi que el apellido puede tener un máximo de 25 caracteres, 
lo que deberia bastar incluso para apellidos largos o 
compuestos, el nombre de pila está limitado a 15 caracteres. 
Por último tenemos hasta 15 caracteres previstos para el 
tercer campo, el número de teléfono. En total suman 55 
caracteres por juego de datos. A estos 55 hemos de sumar 
otros tres caracteres, ya que tenemos tres campos de datos 
que han de ser separados entre si. El carácter de separación 
no resultaria necesario si los campos de datos tuvieran 
longitud fija, pero dado que no es éste el caso, también en 
"nuestra" gestión de ficheros relativos precisamos un 
carácter de separación. De este modo llegamos a una longitud 
de y 





58 caracteres. 


Para no alargar demasiado el listado de la rutina para la 
gestión de ficheros relativos - de hecho, ha de teclearla -— 
se estableció la siguiente condición: la longitud del juego 
de datos ha de ser redondeada a la siguiente potencia de 2. 
Ello significaria en nuestro ejemplo que dariamos una 
longitud de juego de datos de 44. 
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La longitud máxima de juego de datos es de 512 bytes. Asi 
que puede elegir entre las siguientes longitudes: 


2, 4, 8, 16, 32, 64, 128, 256 y 512. 


Dispone con ello de nueve longitudes de juego de datos 
distintas, entre las que elegir. Si su longitud calculada 
resulta ser de 32, está de suerte, ya que puede dar estos 32 
como longitud. En caso de que fuera incluso un único 
carácter más, deberia decidir si elegir una longitud de 
juego de datos de 64, o replantearse si hay algún campo que 
pueda ser recortado en un carácter. En nuestro ejemplo 
calculamos una longitud de 58. La diferencia entre 64 y 58 
es 63 usted tendrá ó bytes de más - decir que los 
desperdicia seria exagerado - por juego de datos. Puede 
ajustarse a esta longitud de juego de datos, y alargar éste 
o aquel campo en algún que otro carácter. Esta limitación no 
es de las que le quitan a uno el sueño. En la gestión de 
ficheros relativos puede olvidarse tranquilamente de todos 
los comandos utilizados hasta ahora para la gestión de 
ficheros secuenciales, a excepción de los comandos OPENIN y 
CLOSEIN. Tenemos en compensación cuatro nuevos comandos, que 
son: 


IINIT,<longitud> [_ioer | 
IRECORD,<número de record> 
IPUT,<lista de parámetros> 

¡RECORD 


IGET,<lista de parámetros> 
El comando GET es comparable al comando LINE INPUT, es 
decir, sirve para la lectura de datos; PUT sirve para la 
escritura de datos, siendo por tanto comparable a PRINT. 
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Si un campo de datos ha de contener námeros, éstos han de 
ser convertidos en cadena mediante el comando STR$. En 
números reales la longitud del campo es 12, para enteros 
sólo 9. 


Dado que en el floppy DDI-1 mo disponemos en principio de 
ficheros relativos, éstos som simulados mediante ficheros 
secuenciales. Antes de poder trabajar com un fichero 
relativo, éste ha de ser "creado". Esto se realiza creando 
un fichero secuencial prácticamente vacio. Recordemos que 
nuestro fichero ejemplo ha de contener 100 juegos de datos 
de una longitud de 64 caracteres. Precisamos por tanto de un 
espacio efectivo de memoria de  100x64=6400 bytes. La 
creación de un fichero de este tipo es muy sencilla: 


10 REM ======================== 
20 REM Crear fichero REL 

3O REM ======================== 
40 : 

50 OPENOUT "fichero.rel" 

60 FOR i=0 TO 100 

70 PRINT 49, STRING$ (64,13); 
80 NEXT 

90 CLOSEDUT 


El número previsto de juegos de datos ha de ser incorporado 
en la linea 60; tal número era 100 en nuestro ejemplo. En la 
linea 70 se crea el espacio: para cada juego de datos; lo que 
hacemos es rellenar nuestro fichero (aún) secuencial sólo 
con el carácter de <Carriage Return>. (Puede elegir también 
cual quier otro carácter, pero resulta aconsejable el 
carácter separador <Carriage Return>, ya que en caso 
contrario, y bajo ciertas circunstancias, podrian surgir 
problemas). No resulta imprescindible cerrar la linea 70 con 
un punto y comas pero de este modo el cálculo resulta 
exacto. Con estas pocas lineas tenemos suficiente, hemos 
creado nuestro fichero REL, que ya puede ser elaborado. 
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Por cierto: Em caso de que su juego de datos sea mayor que 
255 bytes, no resulta posible expresar esa longitud de juego 
de datos en un comando STRING$. Divida entonces su longitud 
de juego de datos en dos comandos STRING$, como, por 
ejemplo, para la longitud de datos 


256  STRING$ (128,13) ;STRING$ (128,13); 
512 STRING$ (200, 13); STRING$ (200, 13); STRING$ (112,13); 


Es una pena, pero no funciona de otro modo, ya que el 
sistema operativo no lo permite para el comando STRING+$. 


Por otra parte, ha de vigilar que la longitud del fichero no 
exceda 131072 caracteres (es decir 2717), ya que fallan los 
cálculos para ficheros mayores. 


Ahora podemos escribir en nuestro fichero 100 juegos de 
datos y Cada juego tendrá en adelante un námero que lo 
determinara univocamente. En la jerga normalmente empleada, 
también se llama RECORD O registro al juego de datos, de 
modo que cada juego de datos puede determinarse mediante su 
número de Record. Al primer Record le corresponde el número 
de Record 0. 


Al abrir un fichero REL puede utilizar, antes o después, el 
comando (OPENIN. Un fichero REL abierto puede ser leido y 
escrito, pero para la apertura siempre será OPENIN. 


Mediante el comando lIINIT se determina la longitud de 
record, es decir, la longitud de un juego de datos 
cualquiera. Esto deberia ocurrir inmediatamente tras la 
apertura del fichero, OPENIN e IINIT van siempre juntos, 
como si fuesen siameses. El comando IINIT tiene un 
parámetro; puede usted utilizar tanto constantes (que será 
lo más normal) como variables. En nuestro ejemplo tendria 
usted que dar entrada a lo siguiente: 


IINIT,64 
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Pero también cabria proceder asi: 


longitudrec=64 : 1IINIT,longitudrec 


Mediante el comando IRECORD determina usted el próximo 
record que ha de ser elaborado; es indiferente si ello va a 
consistir en una lectura o en una escritura. El primer 
record, ésto es, el primer juego de datos tiene el número de 
Record O —- si mo quiere acostumbrarse a esta secuencia, 
puede dejar este primer Record "abandonado" o utilizarlo 
como memoria especial. El comando IRECORD tiene también un 
parámetro que puede ser una constante o una variable. En el 
caso del comando IRECORD lo más frecuente es una variable. 
Para posicionar, por ejemplo, el juego de datos 35 teclee: 


IRECORD, 35 


Los comandos IGET e  IPUT som, en sintaxis y utilización, 
idénticos. El comando IGET recoge datos del sector elegido y 
el comando IPUT escribe datos en el sector elegido. Los 
comandos IGET e  IPUT pueden tener cualquier número de 


parámetro comprendido entre 1 y 32. La ausencia de 
parámetros no provoca mensaje de error alguno, pero el 
comando resulta inoperante. Pueden transferirse 


exclusivamente variables de Cadena. Las constantes que se 
desee escribir han de ser previamente transformadas en 
variables de cadena. Supongamos que deseamos escribir la 
palabra "caballo" en el Record 23; la secuencia de órdenes 
necesaria seria: 
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10 OPENIN "fichero.REL" 
20 IINIT,64 

30 IRECORD, 23 

40 a$="caballo"” 

50 IPUT,da$ 

60 IINIT,O 

70 CLOSEIN 


En este ejemplo podemos reconocer dos particularidades. 
Antes de cerrar un fichero relativo, ha de dar 
obligatoriamente el comando IINIT,O -— después puede cerrar 
el fichero. Ello tiene por finalidad que los datos 
eventualmente aún existentes en la memoria sean escritos en 
el disco antes de cerrar el fichero. Observará otra 
particularidad en la orden IPUT: la cadena no puede ser 
simplemente puesta tras la coma, ha de ir precedida de 3. 
Ello no es achacable a los autores del presente libro, sino 
que se trata de una exigencia del sistema operativo (ver 
también capitulo 1), que sólo ofrece esta via de enlace 
entre el BASIC y el lenguaje máquina. Pero esta "desventaja" 
no deberia molestarle demasiado, uno se acostumbra en 
seguida a ello. Si desea transferir más de un parámetro en 
la instrucción IPUT, puede encadenarlos separándolos 
mediante comas. Si, por ejemplo deseamos escribir además la 
palabra "gato" en nuestro record: 


10 OPENIN "fichero.REL" 
20 IINIT,64 

30 IRECORD, 23 

40 a$="caballo" 

45 b$="gato" 

50 IPUT,9Ia$,Db% 

60 IINIT,O 

70 CLOSEIN 


Resulta intrascendente el hecho de escribir todos los campos 
de datos de un Record en una única instrucción IPUT, O 
mediante varias instrucciones, ya que los punteros internos 
se encargan de un desarrollo libre de problemas. Con la 
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misma facilidad con la que escribimos datos, podemos 
leerlos, y ello mediante el comando IGET. 


Aqui puede transferir cualquier número de variables de 
cadena como parámetros. Da también igual el leer todos los 
campos de datos em uuna linea o en varias. Leamos de nuevo 
"nuestro" record: 


10 OPENIN "fichero. REL" 
20 IINIT,64 

30 a$="" : b$="" 

40 IRECORD, 23 

50 IGET,da$,Db$ 

£0 PRINT a$,b$ 

70 IINIT,O 

80 CLOSEIN 


Si transfiere a la rutina IGET variables de cadena como 
parámetros, estas variables han de haber aparecido al menos 
una vez en el programa; en caso contrario, el intérprete 
BASIC se manifiesta con el mensaje de error: 


Improper argument 


De hecho, esto es todo lo que ha de tener en cuenta. Para no 
alargar ¡innecesariamente la rutina se renunció a la mayoria 
de comprobaciones de error. Ási que ha de tener cuidado en 
no dar números de Record demasiado elevados (aqui pueden 
suceder cosas imprevisibles), también ha de tener cuidado en 
no sobrepasar la longitud máxima de juego de datos, ya que 
en caso contrario se escribiria en el juego de datos 
consecutivo. Si abrió un fichero REL, no puede abrir ningún 
fichero de OUTPUT mediante OPENOUT; asi que ”**sólo”” puede 
tener abierto el fichero relativo. Pero ello es comprensible 
ya que en el fichero relativo puede escribir y leer a la 
vez. 
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Vigile que no se le olvide disponer y preservar el buffer de 
entrada/salida al principio del programa mediante el comando 


OPENOUT "Dummy"” : MEMORY HIMEN—1 : 
CLOSEOUT 


ya que en caso contrario podrian presentarse complicaciones 
durante el funcionamiento con las órdenes de ampliación de 
floppy. Si desea trabajar por si mismo con la rutina tome el 
programa de ejemplo de la gestión de ficheros relativos. 
Puede deducir del mismo cómo y en qué orden deberia utilizar 
las distintas órdenes. 


No utilice el comando CAT - cierra el fichero sin almacenar 
en disco datos que podrian resultar necesarios y 
sobreescribe el buffer. 


Si observa estas reglas le sacará un gran redimiento a la 
rutina. El fichero REL puede extenderse a cualquier medida, 
a todo el disco en teoria. Los tiempos de acceso son muy 
cortos, como demuestra el programa ejemplo. Junto a las 
órdenes para la gestión relativa de ficheros se integraron 
también las órdenes para la rutina de intercepción de 
errores (ver capitulo 5.2). El manejo de los comandos es el 
descrito en el capitulo 5.2. A partir de CALL ein tiene IAN, 
de CALL aus surge IAUS y de CALL msg sale IERR. Asi que 
tiene tres nuevos comandos: 


IAN 
IAUS 
IERR,IMvariable de cadena> 


Con estas siete nuevas órdenes se cubren todas las 
insuficiencias del floppy; ya puede crear programas cómodos 
y libres de errores sin tener que recurrir a complicados 
recursos. Hallaráa ¡impresos tanto un listado Assembler como 
un cargador BASIC. Puede deducir el cálculo de la dirección 
en la que ha de hallarse la ampliación de las descripciones 
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al respecto en el capitulo 5.2. Esta rutina ocupa tk34a = 842 
bytes. Normalmente (es decir, en programas sin el comando 
SYMBOL AFTER) puede utilizar £9300 como dirección básica. 


Ya que la solución exacta dada al problema puede deducirse 
del programa en lenguaje máquina, se explicará aqui 
simplemente cómo se realizó la gestión de ficheros 
relativos. 


5.3.1 Comentarios al programa en lenguaje máquina 


Si deseamos tener un fichero relativo, previamente hemos de 
"“disponerlo". Creamos para ello en primer lugar un fichero 
secuencial con la longitud correspondiente. Con ello 
conseguimos en el disco el espacio deseado y ocupamos el 
número necesario de bloques (ver capitulo 2). Los bloques 
ocupados son anotados en el directorio, 16 Kbytes cada vez 
por entrada. Al abrir ahora nuestro fichero relativo se 
determina mediante el comando  IINIT,RL qué bloques son 
ocupados por el fichero. Se almacenan todos los números del 
bloque (un bloque son 2 sectores consecutivos). Esta tabla 
es el fundamento para la gestión de ficheros relativos ya 
que sin ella no se podria acceder libremente a los distintos 
records. Se almacena además, por separado, la longitud de 
record, pero cuidado: no se comprueba si esta longitud es, 
en efecto, una potencia de dos. Incluso si abre un fichero 
relativo con la misma longitud de sector que otro fichero 
relativo previamente abierto, al comando OPENIN ha de 
seguirle ¡ineludiblemente el comando  INIT, ya que en caso 
contrario se hallarian todavia en memoria los números de 
bloque antiguos. 


Partiendo del número de bloque almacenado resulta siempre 
posible calcular el sector referido correspondiente, y ello 
se hace en el comando IRECORD. La rutina está programada de 
tal modo que un sector sblo es vuelto a cargar si resulta 
imprescindible. Puede ser que ya se halle en memoria; este 
caso se da en especial cuando usted "lee por encima" todos 
los records del primero al último, con el consiguiente 
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ahorro de tiempo. Además ha de determinarse, antes de leer 
un sector, si el sector que se halla actualmente en memoria 
fue escrito mediante IPUT. En caso, afirmativo, se almacena 
el sector antiguo antes de cargar el nuevo. 


Con la orden IPUT se copian en el buffer de sector todas las 
variables de cadena dadas, en la IGET se desvia simplemente 
el indicador de las variables de cadena hacia el buffer de 
sector; su longitud es igualmente modificada. 


Estas son las lineas generales del principio hecho realidad 
en su rutina. Nos hemos decidido por los comandos RSX porque 
son más sencillos de manejar y mucho más potentes a la vez 
que algunos CALLs. Además, usted no ha de pensar (casi) en 
qué zona de memoria se halla la rutina. 


Si no desea teclear los listados, sepa que existe un disco 
complementario al presente libro, que contiene todos los 
programas descritos. 
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Listado Assembler para los comandos de ampliación: 


ORG 48000 


¡Gestión de ficheros relativos con ordenadores Amstrad 
RAEE RANA AAA AAA RARA AAA AAA AAA AA AAA AA AA AAA AAA AAA 


AN 
AUS 
¡ERR 
¡ RECORD 
¡GET 
¿PUT 
¡ INIT 


¡JS 12/2/1986 


LD A, (VER) 
OR A 

RET NZ 

CALL *B900 
PUSH AF 

LD A, ($DEO1) 
LD (VER),A 
POP AF 

CALL *B9OC 
LD A, (VER) 
CP 471 

JR Z ,RSXON 
LD A, 8DF 
LD (A1),A 
LD (A2),A 
LD A, (VER) 
cP 4C9 


JR NZ ,MO2 


Comandos RSX incorporados: 


¡EVITAR CAIDA ANTE 
¿DOBLE IAN 


¡ACTIVAR ROM 


¡ GUARDAR 
; VERSION 


; RESTORE 


5464 


¡61287 
3664 ORDENADOR 


Consejos y trucos para el floppy 363 


LD HL, TABUA 

JR MO2+3 

MO2:LD  HL,TABUZ 

LD (A1+1),HL 

LD (A2+1),HL 

RSXON:LD BC,RSX ¿ AMPLIACIONES 

LD HL,KERNAL ¿4 BYTES DE RAM PARA 
JP *BCD1 ¡UNIR AMPLIACIONES 

, 

RSX: DEFW TABLE ¡DIRECCION DE PALABRAS DE ORDEN 
JP RECORD 

JP GET 

JP PUT 

JP INIT ¿DETERMINAR LONGITUD 
JP SET ; CONECTAR 

JP RESET ¡ DESCONECTAR 

JP GETTXT ¡RECOGE TEXTO 

, 

TABLE: DEFM "RECORD" 

DEFB "D" + 480 

DEFB "ge", "E", "T"+$80 

DEFB ”.p.u , "pa , 1) Te +$80 

DEFB ” I ” , "y" , ” 1 ” , TT” +$80 

DEFB "A", "N"+$80 

DEFB »”a" , »=y"» , »”g" +$80 

DEFB »”e"» , ».q"” , ”e" +$80 

DEFB o ¡FIN DE TABLA 

, 

KERNAL : DEFS 4 ¡MEMORIA PARA KERNAL 
, 

RECORD: CP 01 51. PARAMETRO 

RET NZ ¡CANTIDAD ERRONEA 

LD B, (IX+1) ¡RECOGE RECORD+ 

LD C, (1X) 

LD HL, (RECLEN) ¿LONGITUD RECORD 
AO: CALL MULTI ; DE=HL£BC 

EX DE, HL 

LD DE, 512 ¡LONGITUD DE UN SECTOR 
A1:CALL  RBCD1 ¡HL=HL/DE - - DE=RESTO 


LD A, (FLO) 
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LD (OFFSET)DE ¿GUARDAR OFFSET 

LD DE, 128 ¿SUMAR 128 A CARRY 

OR A 3SI EL FLAG Z=0 NO SUPONE TRANSFERENCIA 
JR Z ,NOC 

ADD HL, DE 

NOC: LD (SECNR)>,HL ¡GUARDAR NUMERO DE SECTOR 
XOR AjA:=0 

LD (PDINTER),A ¡PUNTERO A CERO 

LD (POINTER+1),A 

LD DE, (ODLDSEC> 

SBC HL, DE ¿MISMO SECTOR? 

RET Z ¿SI CERO A BUFFER 

cAaLt SAVE ¡PREVIAMENTE, ALMACENAR BUFFER 
LD HL, (SECNR) ¿RECOGE NUMERO DE SECTOR 
LD (OLDSEC),HL ¿GUARDAR SECTOR 

RR H3/2 

RR L5/2 

PUSH AF ¡GUARDAR CARRY 

LD DE, ($479B) ¡TABLA DE BLOQUE 

ADD HL, DE ¡RECOGE NUMERO DE BLOQUE 
LD A, (HL) ¡NUMERO DE BLOQUE 

LD L,A 

LD H,O 3HL:=NUMERO DE BLOQUE 

ADD HL, HL 3x2 

POP AF ¡RECUPERA CARRY 

LD DE,O 

ADC HL, DE ¿SUMA CARRY 

LD DE, 9 

A2:CALL +$BDCi ¡HL=HL/DE -— -—  DE:=RESTO 
INC HL ¿+1 

INC HL ¿+1 = TRACK 

LD A,L 3 GUARDAR 

LD (TRACK),A 3 TRACK 

LD A,E 3 SECTOR 

ADD A, +41 ¿SUMAR OFFSET 

LD (SECTOR)>,A ¡GUARDAR SECTOR 

LD D,L 3D:=TRACK 

LD C,A 30: =SECTOR 

LD A, ($A708) ¿DRIVE PARA OPENIN 


LD E, A 
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LD HL, ($751) ¡PUNTERO PARA BUFFER DE ENTRADA 
DEFB $DF 

DEFW TAB1 ¿CALL +$C666, CARGA SECTOR 

RET 


, 
¿ALMACENAMIENTO DEL BLOQUE 


, 

SAVE:LD A, (REAWRI) ¿FLAG DE LECTURA/ESCRITURA 
OR A 

RET z ¡ESCRITURA NO PRECISA 

LD HL, (TRACK) ¿TOMAR TRACK/SECTOR 

LD D,L ¡D:=TRACK 

LD C,H ¿C:=SECTOR 

LD A, ($A708) ¿DRIVE EN OPENIN 

LD E, A ¡E:=DRIVE 

LD HL, ($A751) ¡BUFFER DE ENTRADA 

DEFB *DF 

DEFW TAB2 ¿CALL $C64E, ESCRIBIR SECTOR 
XOR A ¡ACCU:=0 

LD (REAWRI>,A — ¡REPONER FLAG 

RET 

, 

GET:LD  C,O ¡O=GET 

JR GETPUT 

PUT:LD  C,i ¡ 1=PUT 

GETPUT:OR A ¡COMPRUEBA CANTIDAD DE PARAMETROS 
RET z ¿=0 => ENTONCES FIN 

LD B,A ¡CANTIDAD DE VARIABLES (CADENAS!) 
ADD AJA ¡ ACCUXZ 

PUSH IX ¡IX A 

POP HL ¿HL 

ADD A,L 

LD L,A 

LD A,H 

ADC A,O ¡HL + CANTIDADx2-1 =PUNTERO EN PARAMETRO 
LD H,A 

DEC HL 

LD A,C ¡ ORDER+ 

LD (ORDER),A ¿GUARDAR 

LO:PUSH HL ¡ GUARDAR 
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END: POP 
LD 

POP 

INC 

LD 

INC 

LD 

LD 

LD 

LD 

INC 

ADD 

LD 
LOOP: POP 


HL, ($A7351) 


DE, (OFFSET) 


HL, DE 


DE, (POINTER) 


HL, DE 
DE, HL 
HL 

BC 

B, (HL) 
HL 

C, (HL) 
HL 

HL 

DE 

BC 

A, (ORDER) 
A 
NZ,PUTV 
B,0 

A, (DE) 
13 

Z, END 

B 

Z, END 
DE 

Li 

HL 
(HL),8 
DE 

HL 

(HL) ,E 
HL 

(HL) ,D 


HL, (POINTER) 


D,O 
E,B 
DE 
HL, DE 


(POINTER) , HL 


HL 


¿PUNTERO PARA OPENIN 
¿SUMAR OFFSET 
¿SUMAR PUNTERO 


3DE:=PUNTERO A BUFFER 
¡RECOGER DIRECCION 


¿DIRECCION VARIABLE EN BC 


¡REALIZAR PUT A LAS VARIABLES 
¿CONTADOR A CERO 

3 RECUPERA CARACTER 

3 CR=F IN? 


3 INCREMENTAR LONGITUD 
¡ERROR -— LONG.EXC. 


¡GUARDAR LONGITUD 
¡DE:=DIRECCION DE INICIO 


¡BYTE BAJO 
¿BYTE ALTO 
¡E:=LONGITUD 
¿+1 PARA CR 


¿NUEVO PUNTERO 
¡PUNTERO A TABLA DE PARAMETROS 


--> CADENA VACIA! 
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POP BC 

DIJNZ Lo ¡SIGUIENTE VARIABLE 

RET 

, 

PUTV: POP. HL ¡RECOGE DIRECCION VARIABLE 
LD C, (HL) ¡CANTIDAD DE CARACTERES 

LD B,O 

INC HE 

LD E, (HL) ¡BYTE BAJO DE DIRECCION 
INC HL 

LD D, (HL) ¡Y BYTE ALTO 

EX DE, HL ¡ HL: =CADENA 

POP DE ¡RECUPERA DIRECCION BUFFER 
LD A,C 

OR A 

PUSH BC ¡GUARDA CANTIDAD 

JR Z,EN1 ¡FIN ANTE CADENA VACIA 
LDIR ¡DESPLAZA CARACTER EN BUFFER 
EN1: EX DE, HL 

LD (HL), 13 ¿CR=SIMBOLO SEPARADOR 

POP DE 

INC DE ¿+1 PARA CARACTER SEPARADOR 
LD HL, (POINTER) 

ADD HL, DE 

LD (POINTER),HL ¿NUEVO PUNTERO 

LD A, 1 

LD (REAWRI>,A ¿GUARDAR ESCRITO 

JR LOoP ¡CERRAR BUCLE 


, 
¿3INICIALIZA FICHERO 


, 

INIT:CP. 01 31 PARAMETRO ? 

RET NZ ¡CANTIDAD ERRONEA DE PARAMETROS 
LD H, (1X+1) 

LD L, (1X) ¡DETERMINAR LONGITUD 

LD A,H 

OR L 

JP Z, SAVE ¿COMANDO INIT, O 

LD (RECLEN),HL ¿ANOTAR 


LD HL,RFFFF 
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LD (OLDDSEC),HL. ¡BORRAR FLAG 

LD DE, ($A79B) ¡DIRECCION BUFFER OPENOUT 
L10:LD HL, $A719 ¡TABLA DE BLOQUES 

LD B,16 

Li1:LD A, (HL) 

OR A 

RET Z ¡ULTIMO BLOQUE 

LD (DE),A 

INC DE 

INC HL 

DJNZ L11 ¡BLOQUE SIGUIENTE 

LD HL, ($A729) 

LD EC, +80 

ADD HL, BC 

LD ($0729) , HL 

LD HL, 0000 

LD (40768), HL ¡VACIAR BUFFER 

DEFB DF 

DEFW GETCHAR ¿CALL *$CF44 DISC IN CHAR 
JR Li0 

, 

RECLEN:DEFW 44 ¿LONGITUD DE RECORD 1 - 512 
SECNR:DEFW 0 ¿NUMERO DE SECTOR 
OFFSET: DEFW 0 ¡OFFSET EN EL SECTOR 
REAWRI:DEFB 0 ¡FLAG 1=ESCRITO, O=LEIDO 
OLDSEC: DEFW  *FFFF ¡ULTIMO SECTOR 

TRACK: DEFB O ¡PISTA DEL SECTOR 
SECTOR: DEFB O ¡SECTOR DEL SECTOR 
TAB1:DEFB +$66,%C6,7 ¡DIRECCION $C666 EN ROM DEL FLOPPY 
TAB2:DEFB  $4E,*C6,7 ¡ESCRIBIR SECTOR 
POINTER: DEFW O ¡PUNTERO A BUFFER 


ORDER:DEFB 0 

GETCHAR:DEFB  164,4C7,7 ;CF64 GET CHAR DE BUFFER DE OPENIN 
FLO:DEFB 0 

FL1:DEFB O 

ANAUS:DEFB 0 


5 
MULTI: XOR A ¿BORRAR ACUMULADOR 
LD ¿DE ES EL REGISTRO DE RESULTADO 


D,A 
LD EJA 
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LD (FLO)>),A 

LD (FL1),A 

LD A,1ó6 ¿ CONTADOR 
Q1:RR B ¿SHIFT DE BC 
RR Cc 

JR NC, Q2 

PUSH HL 

ADD HL, DE 

JR NC, RO ¡NINGUNA TRANSFERENCIA 
LD (FLO),A ¿ANOTAR CARRY 
D0:EX DE, HL 

PUSH AF 

LD A, (FLO) 

LD HL, FLA 

OR (HL) 

LD (FLO),A ¡ANOTAR CARRY 
POP AF 

POP HL 

Q2: ADD HL, HL 

JR NC, 03 

LD (FL1),A 

Q3: DEC A ¡ CONTADOR 

JR NZ,01 

RET 


3 
, 
¡RUTINA PARA LA INTERCEPCION DE ERRORES 
GEMA AAA AAA ARA AAA AAA AAA AMARA AAA 
3 
3 


(C) 1985 BY DATA BECKER GMBH 


JS 12/2/1986 


SET: LD A, (ANAUS) 

OR A ¡EVITA ENCENDIDO DOBLE 
RET NZ 

LD A, (VER) 


LD (ANAUS) , A 
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cr $71;4647 
JR NZ,NO1 

LD A,4$C3 

LD (RACO1),A ¡ READY 

NO1:LD A,$C3 

LD (RBBSA),A ¿OUT CHAR 

LD (HBBO6) , A ¿KW WAIT CHAR 

LD (BCOB) ,A ¿CAS CATALOG 

, 

LD A, (VER) ¡ VERSION 

cp 471 

JR NZ,NO3 3664 

LD HL, READYMODE 

LD (RACOZ) , HL ¿PATCH A READY 

NO3: LD HL, (RBB5B) 

LD (VEK4+1)<HL 

LD HL, OUTCHK ¿PATCH A OUT CHAR 

LD (RBBSB) , HL ¿PATCH A OUT CHAR 

LD HL, (BBO7) ¿GUARDAR ANTIGUO VECTOR 
LD (VEK5+1),HL 

LD HL, KWC 

LD (HBBO7) , HL ¿PATCH A KW WAIT CHAR 
LD HL, (RBC9C) " ¡ANTIGUO VECTOR 

LD (VEK3) , HL 

LD HL, CAT 

LD (BC9C) , HL ¿CAS CATALOG 

LD HL, BUFFER 

LD (HELP) , HL 

RET 


¿LA RUTINA COMPRUEBA SI VIENE CARACTER DEL FLOPPY 


, 

OUTCHK:EX  (SP),HL ¿RECOGE DIRECCION DE RETORNO DE SALTO 
PUSH AF ¡RESCATA ACUMULADOR 

LD A,H ¡COMPRUEBA BYTE ALTO 

cP 4CB ¿PROVIENE DE LA ROM 7 DE FLOPPY 7? 
JR NZ,NEIN ¿NO 

LD A, 1 


LD (TESTERR),A ¿FIJAR FLAG 
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POP AF ¿NO DAR SALIDA A CARACTER 
PUSH HL ¡ RECUPERA HL 

LD HL, (HELP) ¿RECOGE POINTER DE BUFFER 
cP 10 ¡ES EL CARACTER LF 

JR Z,NOT 

¿CR SE ADMITE COMO SIMBOLO SEPARADOR 

LD (HL), A ¿CARACTER EN MEMORIA 

INC HL 

LD A,L 

cP 40+BUFFERSAFF ¿40 CARACTERES ? 

JR NZ,N1 

DEC HL ¿40 CARACTERES ES EL LIMITE SUPERIOR 
N1:LD (HELP) , HL 

NOT: POP HL 

PUSH AF 

SUPRESS:POP AF 

EX (SP) , HL ¡DIRECCION DE RETORNO DE SALTO 
RET ¡NINGUNA SALIDA 

; 

, 

NO: LD A, (VER) 

cP 471 

JR Z,NEINALT 

LD A, (TESTERR) 

OR A 

JR 7,N12 

DEC A 

N12:LD (TESTERR),A 

JR NZ , SUPRESS 

PUSH HL 

LD HL, BUFFER 

LD (HELP) , HL 

POP HL 

POP AF ¡RECOGE CARACTER 

EX (SP), HL 


VEK4:DEFB 4C7,0,1794 ¿RST 2 


, 

NEINALT:LD A, (TESTERR) 
OR A 

JR NZ, SUPRESS 
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POP AF ¡RECOGE CARACTER 
EX (SP), HL 
DEFE $CF,0,$94 ¿RST 2 


3 
¡RUTINA PARA MODO READY 


, 
READYMODE:LD A, (TESTERR) 


OR A ¡FIJA FLAGS 
RET z ¡NINGUN ERROR 
XDR A 

LD (TESTERR),A 

LD HL, BUFFER 

LD (HELP), HL 

LD E, 18 

JP $CA9A 


, 

¡PATCH PARA *+EBOG6 KM WAIT CHAR 

¿VALOR DE DEFECTO PARA ERRORES DE HARDWARE 
¡ES C=CANCEL 


, 

KWC:PUSH AF ¡ RECUPERA ACUMULADOR 
LD A, (TESTERR) 

DR A ¿FIJA FLAGS 

JR NZ, DEFAULT 

POP AF ¿NINGUN € DE DEFECTO 


VEKRS:DEFB  *RCF,*+3C,$+9A 
DEFAULT: LD A,4 


LD (TESTERR),A 

POP AF 

LD A,*C* ¡ DEFECTO 
RET 


RETORNO DE RUTINA POR ERROR DE TEXTO 


Or ro sa a 


ETTXT:CP. Ol 31 PARAMETRO 2 
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DEC 
PUSH 
DEC 
SLOOP: INC 
INC 
LD 
cP 
JR 
LD 
LD 
POP 
EX 
INC 
LD 
INC 
LD 
RET 


su. 


NZ 

E, (1X) 
D, (1X+1) 
C,R*EF 
HL, BUFFER 
A, (HL) 
13 

HL 

Z,LA 

HL 

HL 

HL 

E 

HL 

A, (HL) 
13 

NZ, SLODP 
A,C 
(DE>,A 


¡CANTIDAD ERRONEA DE PARAMETROS 
¡BYTE BAJO 

¡BYTE ALTO 

3 CONTADOR 


¡CARRIAGE RETURN? 


¿HALLADO PRIMER CARACTER DE TEXO? 
3 GUARDAR 
¿MENOS UNO 


¡CARRIAGE RETURN? 


¡ANOTAR LONGITUD 
¡DIRECCION TEXTO 


¡BYTE BAJO 


¡BYTE ALTO 


¡REINICIALIZACION DEL PUNTERO 


, 
RESET: LD 
cP 

JR 


A, (VER) 
471 

NZ, NOZ2 

A, $C9 
(RACO1),A 
A,RCF 
GBBSA),A 
(HBBO6) ,A 
A, $DF 
(RBCIB),A 


¡NUMERO DE VERSION 


¡RST 2 

¿DUT CHAR 

¿KM WAIT CHAR 
¿RST 38H 

¿CAS CATALOG 


> 
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3 
LD 


HL, (VEK4+1) 
LD (+BBSB), HL 
LD HL, (VEK5+1) 
LD (HBBO7) , HL 
LD HL, +A88B 
LD (GBCOC) , HL 
XOR A 

LD (ANAUS),A 
RET 

, 

CAT:PUSH AF 

PUSH HL 

CALL RESET 

POP HL 

POP AF 

CALL 4BCIB 

PUSH HL 

PUSH AF 

CALL SET 

POP AF 

POP HL 

RET 


¡OUT CHAR 


¿KM WAIT CHAR 


¡CAS CATALOG 


¡RECUPERA REGISTRO 


¡DEVUELVE VALOR ORIGINAL 


¿CAS CATALOG 


¿Y VOLVER A CONECTAR 


¿DEVUELVE REGISTRO 


3 
¿PUNTEROS Y MEMORIA AUXILIAR 
ERRRERAAA AAA AAA AAA AAA AAA AAA 


, 

VEK3:DEFW 0 
TESTERR:DEFB $0 
"VER:DEFB 0 

HELP: DEFW BUFFER 
TABU2:DEFB  ¿4BO,4DD, *FD 
TABUA:DEFB  HAE, $DD, HFD 


BUFFER: DEFM "OK" 
DEFB ROD ¿CR 
DEFS 40-3 


¿VECTOR OUTCHAR 


¡BUFFER DE 40 CARACTERES 


= 
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O RGAICIOOIOIRIOIOIOIOIOIOIOIOIOIOIOIOIOIO.RIOORNOR RRA RARXRKRRKKR 

20 *Xx*x* Cargador BASIC para comandos RSX XXXXXXX 

30 *"*XX*x JS 12/2/1986 (c) by DATA BECKER GmbH *xkx 

MO OOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIRIBIPIRBIBIOPIRIRBIRBIPRIRIRIRIBRROIBIEBIRRRIÓONE 

SO” 

60 DEFINT b-z : DEFREAL s,i 

70 adresse = 46000 ”Direccion inicial de la rutina 

go ” 

90 DATA 3AM,3F,83,B7,C0,CD,00,B9,F5,340,01,DE,32,3F,892,F1 
100 DATA CD,0C,B9,3A,3F,83,FE,71,28,1D,3E,DF,32,87,80,32 
110 DATA CA,80,3A,3F,83,FE,C9,20,05,21,45,83,18,03,21,42 
120 DATA 83,22,88,80,22,CB,80,01,40,80,21,70,80,C03,D1,BC 
130 DATA 57,80,C3,74,80,C3,FF,80,03,03,81,03.7D,81,C3,04 
140 DATA 82,C3,FA,82,C03,D3,82,52,45,43,4F,52,04,47,435,D4 
150 DATA 50,55,D4,49,4E, 49,D4,41,CE,41,559,D3, 45,52,D2,00 
160 DATA 00,00,00,00,FE,01,C0,DD,46,01,DD, 4E,00,2A,BA,81 
170 DATA CD,D4,81,EB,11,00,02,CD,C1,BD,3M,D1,81,£D,5%,BE 
180 DATA 81,11,80,00,B7,28,01,19,22,BC,81,AF,32,C0B,81,32 
190 DATA CC,81,ED,5B,C1,81,ED,52,C8,CD,E6,80,2A,BC,81,22 
200 DATA C1,81,CB,1C,CB,1D,FS5,ED,5B,79B,47,19,7E,6F,26,00 
210 DATA 29,F1,11,00,00,ED,5A,11,079,00,CD,C1,BD,23,.23,7D 
220 DATA 32,C0C3,81,7B,C6,41,32,04,81,55,4F,34,08,47,5F,2A 
230 DATA 51,47,DF,C5,81,C09,3A,C0,81,B7,C8,2M,C03,81,55, 40 
240 DATA 3A,08,A7,5F,2A,51,A7,DF,C8,81,AF,32,C00,81,09,0E 
250 DATA 00,18,02,0E,01,B7,C8,47,87,DD,E£5,E1,85,6F,7C,CE 
260 DATA 00,67,2B,779,32,CD,81,E5,25,51,A7,ED,5B,BE,81,19 
270 DATA ED,5B,CB,81,19,EB,E1,C5, 46,2B, 4E,2B,E5,D5,C5,3A 
280 DATA CD,81,B7,20,24,06,00,1A,FE, 0D, 28, 06, 04, 28,03,13 
290 DATA 18,F5,E1,70,D1,23,73,23,72,2M,CB,81,16,00,58,13 
300 DATA 19,22,CB,81,E1,C1,10,BF,C9,E1,4E,06,00,23,5E,23 
310 DATA 56,EB,D1,79,B7,C5,28,02,ED,B0,EB,36,0D,D1,13,2A 
320 DATA CB,81,19,22,CB,81,3E,01,32,C0,81,18,D7,FE,01,CO 
330 DATA DD,66,01,DD,6E,00,7C,BS5,CA,E£6,80,22,BA,81,21,FF 
340 DATA FF,22,C1,81,ED,5B,9B,A7,21,19,A7,06,10,7E,B7,C8 
350 DATA 12,13,23,10,F8,2A,29,A7,01,80,00,09,22,29,A57,21 
360 DATA 00,00,22,68,A7,DF,CE,81,18,DE, 40,00,00,00, 00,00 
370 DATA 00,FF¿FF,00,00,66,C6,07,4E,C6,07,00,00,00,64,CF 
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380 DATA 07,00,00,00,4F,57,5F,32,D1,81,32,D2,81,3E,10,CB 
390 DATA 18,CB,19,30,15,E5,19,30,03,32,D1,81,EB,F5,3M,D1 
400 DATA 81,21,D2,81,B6,32,D1,81,F1,E1,29,30,03,32,D2,81 
410 DATA 3D,20,DC,C9,3A,D3,81,B7,C0,3A0,3F, 83, 32,D3,81, FE 
420 DATA 71,20,05,3E,03,32,01, AC,3E,C03,32,5A, BB, 32,06,BB 
430 DATA 232,9R,BC,3AM,3F,83,FE,71,20,06,21,MB, 82,22,02, AC 
440 DATA 2A,5B,BB,22,9E,82,21,5B, 82,22,5B, BB, 24,07,BB, 22 
450 DATA C8,82,21,BF,82,22,07, BB, 2A,90,BC,22,3C, 83,21,2A 
460 DATA 823,22,9C,BC,21,48, 83,22,40,83,09,E3,F5,7C,FE,CB 
470 DATA 20,1E,ZE, 01.32,3£,83,F1,E5,24,40,83,FE,0M,28,0B 
480 DATA 77,23,7D,FE,70,20,01,2B,22,40,83,E1,FS,F1,E3,C09 
490 DATA 236,3F,873,FE,71,28,19,3M,3E,83,B7,28,01,3D,32,3 
500 DATA 83,20,EA,E5,21,48,83,22,40,83,E1,F1,E3,CF,00,94 
510 DATA 3A,3£,83,B7,20,D7,F1,E3,CF,00,94,3A,3E£,83,B7,C8 
320 DATA AF,32,3E,83,21,48,83,22,40,93,1E,12,02,94,CA,FS 
530 DATA 3A,3E,83,B7,20,04,F1,CF,3C,9A8,3E£,04,32,3E, 83,F1 
540 DATA 3E,43,09,FE,01,C0, DD, SE, 00,DD,56,01,0E,FF,21,48 
550 DATA 83. 7E.FE,0D,23,28,FA,2B,ES,2B,00,27,7E,FE,0D,20 
360 DATA F9, pd 12,E1,EB,23,73,23,72,09,3A4,3F,93,FE,71,20 
570 DATA OS, 29,32,01,AC,3E,CF,32,55,BB,32,06,BB,3E,DF 
580 DATA ol BC, 2A, 9E,32,22,5B,BB,24,C8, 82,22,07, EB, 21 
590 DATA 8B,M8.22,9C,BC,AF,32,D3,81, 29, F59,E5,CD,FA,82,E1 
600 DATA F1,CD,9B,BC,E5,F5,€D,04,82,F1,E1,09,00,00,00,00 
610 DATA 48,83.B0.DD,FD, AE, DD.FD,4F,4B,0D 

620 : 

630 FOR i=0 TO 2£34A 

640 READ d$ 

650 POKE is+adresse, VAL("2"+D$) 

660 s=s+VAL ("2 "+D$) 

670 NEXT 

680 IF s<>95703 THEN PRINT CHR$(7) "xxx Error en Datas !'! xXx 
" : END 

690 : 

700 “Ajuste a la zona de memoria 

710 2 

720 FOR i=adresse TO adresse+x34A 

730 p=PEEK (i) 

740 IF p>%7F AND px284 THEN 800 

7530 NEXT 

760 PRINT CHR$(7) : INPUT"Nombre del fichero :",a$ 

770 SAVE a$,b,adresse, :34B 
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770 SAVE a$,b,adresse,%24E 

720 END 

790 : 

800 1F FEEK(1+1):2%7F AND PEEK (1+1)<%84 OR FEEK(i-1)=1 OR PEE 
E(i-1)=17 THEN 750 

810 ad=FEEK (i-1) + p*x256 : ad=UNT(ad) — %*8000 + adresse 

820 FOKE i-1,%FF AND UNT tad) "Byte bajo 

870 FOKE i,%FF AND INT(ad/256) “Eyte alto 

240 GOTO 750 
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5.4 El programa de gestión de ficheros 


¿Su colección de discos es un caos o mo recuerda en que 
clasificador se halla su sello más valioso? Pues el programa 
de gestión de ficheros le vendrá que ni pintado. 


El programa de gestión de ficheros es relativamente largo, 
pero no deberia abstenerse de teclearlo (o de adquirir el 
correspondiente disco del libro), ya que le abre 
posibilidades insospechadas. No es tan cómodo como un 
DATAMAT uu otros conocidos programas de gestión de ficheros, 


pero es suficiente, por velocidad y flexibilidad, para 
muchisimas aplicaciones. 


Da lo mismo si desea gestionar su agenda o su discoteca, ya 
que mo está prevista ninguna máscara de entradas fija. 
Dispone usted de hasta 10 campos de datos para sus juegos de 
datos, que puede ocupar a su gusto. El programa está 
estructurado de modo que pueda gestionar hasta 200 juegos de 
datos. Los datos se almacenan secuencialmente, no de modo 
relativo; todos los datos se recogen en memoria. De no 


haberse hecho asi, el programa hubiera resultado más largo 
aún. 


Se ¡incorporaron a este programa los caracteres especiales 
españoles, si bien éstos no resultan correctamente ordenados 
en el proceso de ordenación ('), ya que la tarea hubiera 
resultado desproporcionada frente a los resultados. 


Resulta además aconsejable que en. el disco en el que 
almacene el programa de gestión de ficheros se halle también 
la rutina de intercepción de errores y/o el paquete de 
ampliación del capitulo 5.3 (bajo los correspondientes 
nombres '* de fichero). Genérelo, consecuentemente con el 
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listado del capitulo 5.3, con la dirección de inicio £9FOO y 
almacénelo bajo el nombre "RSX.BIN"”. Eso es todo lo que ha 
de pensar. 


Tras teclear el programa, haberlo almacenado al menos una 
vez (mejor varias veces en distintos discos) y de que exista 
el fichero RSX.BIN, puede iniciar el programa. Obtendrá en 
primer lugar el menú en pantalla. Mediante las teclas 
cursoras puede elegir los puntos del menú, confirmándolos 
mediante ENTER; se ejecuta entonces el punto de menú 
elegido. 


Los datos se almacenan bajo user 1, de modo que los datos 
queden claramente separados de los programas y datos 
normales. Para ver sus ficheros puede elegir el punto del 
menú 


>Mostrar directorio” 


, el cual le mostrará únicamente los ficheros bajo user 1, 
es decir, sus propios ficheros. Cuando lo ejecute por 
primera vez, comprobará que en la pantalla se muestra 
solamente la memoria disponible de su disco. Pulsando una 
tecla cualquiera se vuelve al menú principal. 


Volvamos a considerar los datos que ya tomamos como ejemplo 
en los capitulos 1 y 5.3. Creamos un FICHERO TELEFONICO con 
los tres campos de datos siguientes: 


Apellido 
Nombre 
Teléfono 
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Podemos ampliar facilmente el fichero en tres campos más 
incluyendo, por ejemplo, los campos de datos: 


Provincia 
Población 
Calle 


Elija el punto de menú 


>Crear/Variar máscara?” 


, y crearemos nuestra máscara O plantilla con los seis 
campos de datos. Las entradas se realizan como siempre 
mediante ENTER. Si desea modificar un campo, puede hacer 
subir el cursor mediante la tecla correspondiente, y 
sobreescribir el campo que proceda. Por motivos internos del 
sistema operativo no resulta posible corregir letras 
individuales, de modo que vuelva a rellenar completamente el 
campo correspondiente. Tras una entrada, el cursor salta al 
campo siguiente. Si desea abandonar el punto del mená 


>Crear/Variar máscara” 


pulse simultáneamente las teclas CTRL y ENTER. Retornará 
instantáneamente al mená principal. Tan pronto haya entrado 
un juego de datos, puede corregir la máscara, pero no 
ampliar el número de campos de datos. 


Tras haber creado la máscara, deberia elegir el punto del 
menú ”"entrar/variar datos”. Obtendrá la máscara de entrada 
en el modo de 80 caracteres. Se le indica en la parte 
superior derecha la longitud máxima de sus campos de datos 
para evitar que una linea resulte sobreescrita. 
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El campo que está siendo ocupado se muestra invertido. 
Introduzca ahora sus propios datos. Cuando haya acabado, la 
máscara de entrada volverá a ser vaciada y oen la parte 
inferior izquierda verá que ha sido almacenado un juego de 
datos. Probablemente haya observado con estupor una 
información de estado en la parte inferior derecha de la 
pantalla. Usted determina con estricta rigidez que lo que no 
debe ser no puede ser — asi que ha de haber un estado más. 
Se trata del estado de corrección. En la ventana central ve 
que la pulsación simultánea de las teclas <Ctrl1> y ENTER 
lleva a una variación del estado. Inténtelo: 


En la esquina inferior derecha, bajo "Estado" ya no está la 
palabra "entrada", sino "corrección". Aparece, además 


xx rellene la máscara con concepto de búsqueda Xx 


Ello tiene el siguiente significado: si desea modificar un 
juego de datos ha de comunicar al programa el juego de datos 
del que se trata. Para ello está a su disposición toda la 


máscara de entrada -— pero no se asuste, no ha de rellenar 
toda la máscara con datos. Introduzca por ejemplo su nombre 
en el campo "nombre", cierre los otros campos mediante 


ENTER. Tan pronto haya llegado al olimite inferior de la 
máscara de entrada, todos los campos restantes serán 
rellenados con sus datos, que puede ahora corregir. Aqui 
vale lo mismo que en el caso de la máscara: los campos que 
desee corregir han de ser totalmente sobreescritos, los 
campos que no desee corregir, ciérrelos simplemente mediante 
ENTER. Cuando haya cerrado com ENTER todos los campos, se 
hallará de nuevo en el modo de entrada. Pero en caso de que 
tenga en su fichero más de una persona con su nombre, puede 
suceder que otro juego de datos sea mostrado para 
corrección, ya que únicamente, es tomado en cuenta el primer 
juego que responde a su descripción. 
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Imaginese que entre sus amistades cuente usted con dos de 
nombre PEDRO. Si quiere asegurarse de que le sea mostrado el 
PEDRO correcto, ha de darle al programa adicionalmente más 
información que la del nombre, como por ejemplo, el número 
de teléfono o bien el apellido. 


Si ¡introduce más de un campo de datos, se lleva a cabo una 
”? comparación y”, es decir, han de darse todas las 
condiciones. Si pidiera la búsqueda de un juego de datos 
inexistente, obtendria el mensaje de error: 


xx el juego de datos no existe Xxx 


Todavia se halla en el modo de corrección y puede emprender 
un nuevo intento. 


Saldrá en cualquier momento del modo de corrección pulsando 
CTRL/ENTER, —retormando al modo de entrada (sin que se lleve 


a cabo la corrección). 


Saldrá en cualquier momento del menú ”entrada/corrección” 
entrando FIN en un campo de datos cualquiera. 


Brevemente sobre los restantes puntos del menú: 
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Cargar y Almacenar datos 


Se cargan/almacenan los datos entrados y la máscara. Puede 
incorporar un nombre de fichero de una longitud de hasta 
ocho caracteres. Retornará al menú principal com CTRL/ENTER. 


Borrar datos 


Puede usted borrar un juego de datos. Para ello puede 
buscarlo previamente al igual que en la parte de programa 
crear/variar; antes de que resulte borrado, ha de confirmar 
usted una pregunta de seguridad. 


Ordenar datos 


Puede ordenar sus datos tras cualquier campo, cargando 
previamente dicho campo. 


Listar datos 


Puede elegir si la salida ha de ser por impresora (1) oa 
pantalla (P). Tras pulsar la tecla "I1” o bien "P" puede 
elegir los campos de datos a los que hay que dar salida; 
interesante para listas que no contengan todos los campos de 
datos. Para evitar la salida de un campo de datos,. pulse en 
el campo correspondiente la tecla ENTER, o llene el campo 
con un carácter cualquiera; basta, por tanto, pulsar en un 
campo la tecla de espacio/ENTER para darle salida. 
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Mostrar directorio 

Le será mostrado en pantalla el indice del contenido del 
disco. 

Finalizar programa 

Elija este punto del programa únicamente cuando haya 
almacenado en disco sus datos y, eventualmente, sus 
correcciones; no hay pregunta de seguridad alguna en el 
programa. 


Borrar todo 


Se borran todos los datos en memoria, el programa comienza 
de nuevo. 
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10 GIOOIOIBIOIOIOIOOIOIOIOIOOIOIOIORIBIOIOIRIRBIORRIBRIRBIRBIBRRIBIRP dll PlPldlBlORIOR 
20 "XXXXX (Cc) 1786 by DATA BECKER OOOO XXXXXXAXKK 
3O "XXXXX Autor 3: Joerg Schieb o RRIBIOIORIOORORROBRIRDRRRORDON 
40 "XXXX*X Gestion de ficheros RXXRRARERARARAXAXAXKXKAX 
O IIOROOIOROOIOIOIOIOIOIOIOOIOIOIOIOIOIBIOIBIAORIOIRORIOIRORIBOIRBERIORRIRERRIRORIBRORION 
60 ” 

70 ON ERROR GOTO 23170 

80 SYMBOL AFTER 91 

90 MEMORY 29ES50-1 

100 LOAD "0:RSX.BEIN" 

110 CLEAR 

120 DEFINT A-Z : ds$="" : CALL 29E50 ¡AN 

130 ON ERROR GOTO 23170 

140 ON BREAK GOSUB 2960 

150 OFENOUT "dumm" 

160 MEMORY HIMEM-1 

170 CLOSEOUT 

180 DIM ma$(20),m$(9),1(20),d$(200,9),da$(9) 

190 cursorup$=CHR$ (240) : cursordown$=CHR+$ (241) 

200 ¡USER, 1 

210 2 

220 REM =========================================== 

230 REM Definicion de los caracteres espanoles 

240 REM =========================================== 

250 2 

260 DATA 135,91,126,92,137,93,132,123,133,124,134,125,129,126 
270 FOR i=1 TO 7:READ a,b:KEY a, CHR$(b) : NEXT 

280 SYMBOL 127,14,0,120,8,122,204,118 

290 SYMBOL 124,14,0,60,102,126,96,60 

300 SYMBOL 92,14,22,0,56,24,24,60 

310 SYMBOL 91,14,22,0,60,102,102,62 

320 SYMBOL 125,14,22,0,102,102,102,62 

330 SYMBOL 93,112,14,0,1792,102,102,102 

340 SYMBOL 126,24,0,24,24,24,24,24 

350 KEY DEF 27,1,124,92 

360 KEY DEF 28,1,123,91 

370 KEY DEF 26,1,125,93,124 
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380 KEY DEF 24,1,126,ASC("+*+") 

390 KEY DEF 19,1,59,42 

400 KEY DEF 17,1,59,43,64 

410 KEY DEF 18,0,13,13,140 

420 KEY 140, "XxXESCX"+CHR$ (17) 

450 2 

460 DATA Cargar datos, Almacenar datos,Entrar/modificar datos," 
Borrar datos”, Ordenar datos,Listar datos,Mostrar directorio,Cr 
ear /Modi 

ficar mascara,Finalizar programa,Borrar todo,fFin 

470 : 

480 i=0 : WHILE mas$(i)<>"Fin" : i=i+1 

490 READ ma$(i) : 1(i1)=LEN(ma$(i))/2 

500 WEND : anzmask = i-1 

510 STAT=0:INK 0,0 : INK 1,13 : BORDER O : PAPER O : MODE 1 : 
PEN 1 : FEN $1,0 : PAFER 41,1 

520 WINDOW +$1,1,40,1,3:CLS +1:LOCATE +$1,16,2:PRINT $1, "ME NU 
530 FOR i=1 TO anzmask 

540 LOCATE 20-1 (1),5+iX2 : PRINT ma$(i) 

550 NEXT 

560 feld=1 : FEN +$1,1 

570 PAPER $1,1 : PEN +$+1,0 

580 WINDOW +t1,20-—1 (fel1d),20+1 (fel1d),5+feldXx2,59+feldX2 : PRINT 
*+1,ma+(feld) 

590 d$=INKEYS$: IF d$="" THEN 590 

600 PAFER $+1,0:PEN $1,1:1F d$=cursorup$ THEN PRINT +ti,ma$(feld 
):feld=feld-1:1F feld=0 THEN feld=anzmask:GOTO 570 ELSE 570 
610 IF d$=cursordown$ THEN PRINT +*1,ma$(feld):feld=feld+1: IF £ 
eld>anzmask THEN feld=1:G0TO 570 ELSE 570 

620 IF d$<>CHR$(13) THEN 590 

630 ON feld GOSUB 1480, 1240,2190,26790,2810,2940, 1940, 2020, 1880 
.6540:GOTO 510 

640 RUN 120 *Borrar todo 

650 : 

660 REM ====================================== 

670 REM Busca el array de cadena da$b 

680 REM ==================Ic=moo:mooo========== 

670 : 

700 IF anzahl1=0 THEN found=0 : RETURN 
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710 FOR i=1 TO anzahl 

720 FOR i9=0 TO anzahlfelder-1 

730 IF da$(i9)="" THEN 750 

740 IF da$(i9):<>5d$(1,i9) THEN 770 

750 NEXT 19 

760 found=i : RETURN 

770 NEXT i 

780 found=0 : RETURN 

790 : 

800 REM ======================================= 

810 REM Ordena segun numero de campo feld 

820 REM ======================================= 

830 : 

840 IF anzah1<2 THEN RETURN 

850 EVERY 30,0 GOSUB 2870 

860 FOR i1=1 TO anzahl1-1 

870 ver=i1 

geo FOR i2=i1+1 TO anzahl 

890 IF d$(12,feld)<d$(ver,feld) THEN ver=i12 

900 NEXT 

910 FOR i2=0 TO anzahlfelder-1 

920 d$=d$ (ver,i2) : d$(ver,i2)=d$(11,12) : d$(i1,12)=d$ 
930 NEXT 

940 NEXT 

950 i=REMAIN(0) 

960 RETURN 

970 : 

980 REM ================================================ 
990 REM Comprueba la existencia de un nombre de fichero 
1000 REM ===============u========o==o=====o================ 
1010 : 

1020 nf=0 : ef=0 : OPENIN file$+".dat" : IF ef THEN 1020 
1030 found=1-nf+f : ”*1=hallado, O=nmo hallado 

1040 CLOSEIN 

1050 RETURN 

1060 : 

1070 REM ======================o========= 

1080 REM Borra la cadena numero Sn 

1090 REM ========zic=zrrr=mssmososo==o==m=== 

1100 : 

1110 IF anzahl=1 THEN anzahl=0 : RETURN 
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1120 
1130 
1140 
1150 
1150 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


1250 
1250 
1270 
1280 
1290 
T41," 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 


FOR: 
F 


N 
NEX 
anz 
RET 


REM 


i=sn TO anzahl1-1 

OR i1=0 TO anzahlfelder-1 
d$(i1,11)=d$(i1+1,i1) 

EXT 

T 

ahl=anzahl-1 

URN 


GOSUB 1490 : 1F file$="*XESC*" THEN RETURN ELSE SOSUE 10M 
: 1F found=0 THEN 1310 ELSE WINDOW +$t1,1,40,25,25 
INK 2,1 
: CLS $1 


EVE 
d+= 
im= 
GOT 
Loc 
es 
RET 
ef= 
FR 
FOR 
PR 
NEX 
PRI 
FO 
F 


N 
NE 
cLo 
RET 


2 PRINT 41,CHR$(7)"Ha de ser sustituido ( 


RY 20,0 GOSUB 1290 

INKEYS : IF d$="" THEN 1260 

REMAIN(0): 1F UPPER$(d$)<>"”S" THEN 1240 

D 1310 

ATE $1,30,1 : IF im=0 THEN PRINTR1,"2"z:zim 


2im=0 
URN 
O : OFENOUT file$+".dat" 2: 1F ef THEN 1310 
INT*9,anzahl+elder 
i=0 TO anzahlfelder-1 
INT $9,m$(i) 
T 
NT+9, anzahl 
R i=1 TO anzahl 


OR i1=0 TO anzahlfelder-1 
PRINT+9,d$(1,11) 
EXT 
XT 
SEODUT 
URN 
Lee nombre de fichero 


: PAFER 21 


“ 
sn) 
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1,40,1,3 : PAPER $1,2 : INK 2,1 : CLS$t 


1490 MODE 1 NDOW_ +1 3 
2 2 PRINT $1, "Introduzca el nombre del fichero 


1 : LOCATE k*i, ; 

1500 WINDOW ++1,1,40,15,16 : CLS $1 : FRINT+*1,TAB(10)"No utilic 

e (,.:"CHR$(34)") 

1510 PRINT41,TAB (8) "Introduzca como maximo 8 caracteres 

1520 WINDOW +1,1,40,6,10 : CLS +41 

1530 LOCATE $1,5,3 2 INK 3, 

1540 PRINT +41, "Nombre de fichero :"; 

1550 WINDOW 4+1,16,24,8,8 : PAFER +1,3 : CLS 41 

1560 LINE INPUT $1,"",file$ : IF file$s="xXxXESCkX” THEN RETURN 

1570 IF LEN(file$)>8 THEN PEN 3:LOCATE 8,16:PRINT CHR$(7)"Intr 

oduzca como maximo 8 caracteres”: FOR i=1 TO 300: NEXT: PAPER $1, 

2:G0OTO 1 

500 

1580 có$=",.:"+CHR$ (34) 

1590 FOR i=1 TO LEN(c$):1F INSTR (file$,MID$(c$,i,1))=0 THEN N 

EXT:GOTO 14610 

1500 LOCATE 10,15 : PEN 3:PRINT CHR$(7)"No utilice (,.: "CHR$(3 

4)")": FOR i=1 TO 300: NEXT:PAPER $1,2:GOTO 1500 

1510 RETURN 

1620 : 

1530 : 

1540 REM ============================:=========== 

1650 REM Lee fichero 

1560 REM =======================o================ 

1570 : 

16580 GOSUB 1490 : IF file$="XxESCxX" THEN RETURN ELSE GOSUB 1020 
2 IF found=0 THEN 1480 

1590 ef=0 : OPENIN file$+".dat" : IF ef THEN 1690 

1700 INPUT+*9,anzahlfelder 

1710 ERASE d$:DIM d$(200,anzahlfelder-1) 

1720 FOR i=0 TO anzahlfelder-1 

1730  INPUTH9,m$(i) 

1740 NEXT 

1750 INPUT49,anzahl 

1760 FOR i=1 TO anzahl 

1770 FOR. ii=0 TO anzahl+felder-1 

1780 INPUT*9,d$(1,i1) 

1790 NEXT i1 

1800 NEXT 
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1810 CLOSEIN 

1820 RETURN 

1830 : 

1840 REM ============================== 

1850 REM Finalizar programa 

1860 REM =====================::o=====o= 

1870 : 

1880 ¡USER,O : CALL aus : MODE 2 : PRINT "*xxx*x Programa finaliz 

ado Xxx" : END 

1890 : 

1900 REM ============================== 

1910 REM Muestra contenido disco 

1920 REM ============================== 

1930 : 

1940 MODE 2 : CAT 

1950 LOCATE 36,25 : PRINT "<< Pulsacion de tecla >>" 

19650 CALL 2£%BBO6 : RETURN 

1970 : 

1980 REM ============================== 

1990 REM Modifica/crea mascara 

2000 REM ============================== 

2010 : 

2020 MODE 1 : WINDOW +1,1,40,1,3 : PAPER +$1,2 : INK 2,1 : CLSH 

1 : LOCATE $1,7,2 : PRINT $1,"Creacion y modificacion de la ma 

scara 

2030 LOCATE 1,7 : IF anzahl1>0 THEN bis=anzahlfelder-1 ELSE bis 

=9 

2040 FOR i=0 TO bis 

2050 PRINT RIGHTS$(STR$(i+1),2)". Feld:"m$(i) 

2060 NEXT 

2070 WINDOW 4$1,5,35,23,25 : PAPER 41,2 : PEN +$t1,1 : CLSH1 : LO 

CATE +1,8,2 : PRINT4+1,"Ctrl1/Enter f3r Ende 

2080 WINDOW +1,10,40,7,7+bis : PAPER 41,0 : PEN 41,1 

2090 CLS*1: FOR I=0 TO ANZAHLFELDER-1:PRINT 41,M$(1) 

2100 NEXT:LOCATE %1,1,anzahlfelder+1+(anzahlfelder=bis+1):i2=Y 

POS (41)-2:LINE INPUT 4$1,"",a$ 3: IF a$="*xESCX" THEN RETURN ELSE 
IF as=" 

“ THEN LOCATE +%1,1,anzahlfelder+1 : GOTO 2090 

2110 ¡1=VPOS($1)-2:1F i2=8 AND ¡i1=8 THEN i1=9 

2120 am$(ii)l=as : IF ii>anzahlfelder-1 THEN anzahl+felder=i 1+1 
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2130 GOTO 2090 

2140 : 

2150 REM ======================I======::======= 

2160 REM Entrar/modificar datos 

2180 : 

2190 IF anzahlfelder=0 THEN RETURN ELSE MODE 2 : WINDOW +4t1,1,89 
031,3 : PAPER $1,1 : PEN $+1,0 : CLS +1 

2200 IF stat=0 THEN a$="Entrar y modificar datos" ELSE IF stat 
=3 THEN a$="Seleccion del juego de datos a inspeccionar” ELSE 
IF stat= 

S THEN a$="Seleccion de los juegos de datos a emitir" 

2210 LOCATE +1, 40-LEN(a$)/2,2:PRINT $1,a$ 

2220 GOSUB 2580 

2230 LOCATE 1,7 : FOR i=0 TO anzahlfelder-1 

2240 PRINT m$(i)TAB(laenge-2)":" 

2250 NEXT 

2260 LOCATE 60,5 : FRINT "Longitud de campo de datos="8S0-laeng 
e. 

2270 PEN $$2,0 2: PEN $3,1 : PAPER 12,1 : PAPER $3,0 

2280 WINDOW +$2,5,75,22,23 : CLS $2 2 IF stat<S THEN PRINT 42,T 
AB(7)"xx Ctrl/Tecla ENTER=Modificar estado (Entrada/Correccion 
) Xx": IF 

stat=0 THEN a$="xx*x Introduzca *Fin” en cualquier campo para + 
inalizar *Xx*x":GOTO 2300 

2290 IF stat<>2 THEN at$="XxxXx Rellene la mascara con concepto bu 
scado Xx” ELSE at="x*xx Introduzca las correcciones xx” 

2300 PRINT $2, TAB(3S5-LEN (a$)/2) a+ 

2310 WINDOW +1,1,80,25,25 : PAPER +1,1 : PEN 41,0 

2320 CLS$1 : LOCATE +$+1,5,1 : PRINT +41,"Almacenado :"zanzahl : 
LOCATE +1,55,1 : PRINT +$1,"Estado : "3; : IF stat<>1 THEN PRINT 
$1," E 

ntrada Xx" ELSE PRINT+*1, "xx Correccion Xxx" 

2330 PD=0 

2340 IF stat<>2 THEN WINDOW +3, laenge,79,7,16 : CLS$3 

2350 WHILE POtanzahlfelder : WINDOWR2,1,laenge-3,7+P0,7+po : W 
INDOW +3, 1,laenge-3,7+po,7+po : CLS$2 : PRINT 42,m%$ (po) 

2360 WINDOW ++4,1laenge,79,7+po,7+po : LINE INPUT 4+4,a$ : a$=LEF 
T$ (a$, 80-laenge) 


” 
e 
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2370 IF a$="X*ESCX" THEN 2500 ELSE IF LOWERS$(a$)="Fin" THEN RET 

URN 

2380 da$(po)=a$ 

2390 CLS$3: PRINTR*3,m$ (po) :po=po+1 

2400 WEND 

2410 IF stat=0 THEN anzahl=anzahl1+1+(anzah1=200): FOR ¡i=0 TO an 

zahlfelder-1:d$(anzah1l,i)=da$(i):NEXT:GOTO 2320 

2420 IF stat=2 THEN 2470 

2430 IF stat=5 THEN RETURN 

2440 GOSUB 700 : REM proporciona cadena buscada 

2450 LOCATE 25,20 : IF found=0 THEN PRINT CHR$(7)"x*xx*x el juego 

de datos no existe Xx" ELSE PRINT SPACES (30) 

2460 IF found=0 THEN 2320 ELSE FOR i=0 TO anzahlfelder-1:LOCAT 

E laenge, 7+i:PRINT d$(found,i):NEXT: IF stat=3 THEN RETURN ELSE 
stat=2: 

GOTO 2280 

2470 FOR i=0 TO anzahlf+elder-1:IF da$(i)="" THEN 2490 

2480 d$ (found, i)=da$(i) 

2490 NEXT:stat=1:GO0TO 2500 

2500 IF stat=5S THEN RETURN ELSE IF st>1 THEN 2280 ELSE stat=1- 
stat:GOTO 2280 

2510 END 

2520 RETURN 

2530 : 

2540 REM ================================= 

2550 REM Proporciona la mayor cadena 

2560 REM ==============================2=== 

2570 : 

2580 laenge=0 

2590 FOR i=0 TO anzahlfelder-1 

26500 IF LEN(m$(1))>laenge THEN laenge=LEN (m$ (1 )) 

2610 NEXT 

2620 laenge=1aenge+4 

2630 RETURN 

2640 : 

2650 REM =================o=o::mo======== 

2660 REM Inspeccionar juego de datos 

2570 REM =====================:::mosmo===== 

2680 : 

2690 IF anzahl=0 THEN RETURN ELSE stat=3 : sti=1 : GOSUB 2190 
: IF LOWERS (a$)="Fin" THEN RETURN ELSE sti=0 

2700 LOCATE 1,18 : PRINT "Juego de datos ok (s/n) ":EVERY 30,0 
GOSUB 2740 
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2710 d$=INKEYS$ : IF d$="" THEN 2710 

2720 sn=REMAIN(0): IF LOWERS$(d$)<>"s" THEN 2690 

2730 sn=found : GOSUB 1110 : RETURN 

2740 ¡=ABS(i=0):LOCATE 20,18: 1F i THEN PRINT"?2" ELSE PRINT" " 
2750 RETURN 


2760 : 

2770 REM ========================:============= 

2780 REM Ordenar 

277970 REM =================o===================== 

2800 : 

2810 MODE 2:PRINT"Segun que campo ha de ordenarse (1-"STR$+(anz 
ahlfelder)"»:"3 2: INPUT " ",a 

2820 IF a<x1 OR a>anzahlfelder THEN 2810 

2830 PRINT : PRINT "Campo "CHR$(34);m$(a-1);CHR$(34)" -—— ok ? 
(s/n) 

2840 d$=INKEYS : IF d$="" THEN 2840 


2850 IF LOWERS$(d$)<>"s" THEN 2810 

2860 feld=a-1 : GOTO 840 

2870 i9=(i9=0):LOCATE 5,7:1F 19 THEN PRINT" "CHR$(224) ELSE FR 
INT CHR$(224)3" " 

2880 RETURN 

2890 : 

2900 REM ===================================== 

2910 REM Salida a pantalla e impresora 

2920 REM =========================o===o===o====== 

2930 : 

2940 MODE 2:PRINT"Salida a impresora o pantalla ? (I/P)" 
27950 d$=INKEYS$ : IF d$="" THEN 2950 

2960 IF INSTR("pi",LOWER$(d$))=0 THEN 2950 

2770 1F LOWER$(d$)="i" THEN ae=8 ELSE ae=0 

2980 sti=1:stat=5:GOSUB 2190 

2990 f=0 

3000 FOR i=0 TO anzahl+felder-1 

3010 IF da$(i)<>"" THEN 4 (4)=i :f£=f+1 

3020 NEXT 

3030 laenge=laenge-4: IF ae=0 THEN MODE 2 

3040 FOR i=1 TO anzahl 

3050 FOR i1i=0 TO f-1 

3060 PRINTitae, m$ (f (11) ) SPACES (1 aenge—LEN (m$ (4 (11))))": "de 
(i,f(11)) 
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3070 NEXT 

3080 PRINTkae 

3090 NEXT 

3100 IF ae=0 THEN PRINT "<< Pulsacion de tecla >>":CALL 2£BBOS6 
3110 RETURN 

3120 : 

3140 REM Rutina de errores 

3150 REM ========"=="============================= 

3160 : 

3170 IF ERR<>18 THEN RESUME NEXT 

3180 ef=0 : CALL msg, éds$ 

3190 nf=0:1F RIGHTS (ds$,9)="not found" THEN nf=1: RESUME NEXT 
3200 WINDOW $$6,1,40,24,25: PAPER $6,1:PEN $6,0:CLS $6 

3210 PRINT $6,.CHR$(7) "XXX Disk:"3ds$¿" in"¡ERL:PRINT $6," 
ENTER>=Menu principal, en caso contrario, de nuevo 

3220 d$=INKEYS$ : 1F d$="" THEN 3220 

3230 ef=1 : IF ASC(d$)=13 THEN RESUME 510 

3240 RESUME NEXT 


ee 


Consejos y trucos para el floppy 395 


5.5 DISCMON — monitor de discos para el CPC 


¿Ya ha probado el programa para leer y mostrar sectores 
individuales del disco?. Pues ya habrá comprobado la 
lentitud de salida a pantalla en este programa. En el 
monitor de,disco que ahora presentamos, basado inicialmente 
en el anterior programa, hemos incluido la salida de la 
información de sectores en un corto programa en lenguaje 
máquina, para alcanzar una velocidad de salida aceptable. 
Hemos ¡incorporado también algunos comandos suplementarios, 
que serán de gran ayuda en una uu ootra ocasión. Son los 
siguientes: 


- Leer sectores 

- Modificar contenido del sector 

- Escribir sectores 

— Mostrar directorio 

- Calcular números de pista y sector a partir del 
número de bloque 


La lectura de los sectores está estructurada de una forma 
bastante cómoda. Con las cuatro teclas cursoras puede 
alcanzarse cualquier sector del disco. Para ello se cuenta 
con las teclas ”Cursor Up”? y ”*Cursor Down” para la elección 
de la pista siguiente o anterior, y con las teclas *”Cursor 
Left? y "Cursor Right? para leer el sector anterior o 
posterior al actual. 

En estas funciones hay un ”Wrap Around”? incorporado. Asi que 
si lee el sector 9 de una pista y pulsa tras ello la tecla 
*Cursor Right”, le será mostrado el sector 1 de la pista 
siguiente. 


Como particularidad, manteniendo pulsadas las teclas de 
cursor no se muestra el contenido del sector recién leido. 
Ello acelera ostensiblemente el acceso. Lamentablemente no 
se muestra el último sector leido, de modo que deberia 
volver a leerlo con ”R (ENTER)”. 
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Por supuesto que puede elegir también un sector concreto 
para lo que nos servimos del comando *”R”. Pero en vez de 
entrar ENTER, indique un número de unidad en la forma O para 
la unidad A o. 1opara la B, y el programa le requerirá los 
valores deseados para pista y sector. Seguidamente se lee el 
sector y se muestra la primera mitad del contenido. 


Lamentablemente, los 512 bytes de un sector no pueden ser 
llevados: a pantalla como volcado ASCII y Hexadecimal. Por 
tal motivo puede usted pasearse de una a otra página de la 


pantalla mediante las teclas ”Shift Cursor Left” y *Shi4ft 
Cursor Right”. 


El comando ”M”? está pensado para modificar la información 
leida. Este comando pregunta por la dirección de la 
dirección del buffer a variar. Si responde a esta pregunta 
simplemente con ENTER, se elige como dirección el comienzo 
del buffer. 

La dirección será mostrada junto con el contenido. El 
programa espera después el nuevo valor de la dirección de 
buffer. Las entradas admitidas son los números hexadecimales 
de 00 a FF, que han de ser entrados sin ?*x” y terminados 
mediante ENTER. Después se muestra la dirección de buffer 
siguiente y su contenido. Pero si no desea modificar dicho 
contenido, puede saltar a la dirección siguiente pulsando 1a 
tecla ENTER. El modo de entrada se abandona con ?X (ENTER)”. 


Puede volver a escribir en disco un sector alterado de este 
modo mediante el comando ”W”. Con la. entrada de ”W (ENTER)” 
se escribe el buffer en el sector del que fue leido en un 
principio. Pero también puede elegir otro sector si indica, 
com en el comando ?*M”, el número de unidad, la pista y el 
sector. 


El comando ”B”? supone em cierta medida un medio auxiliar 
para la lectura de ficheros. Como sabe de capitulos 
anteriores, en el directorio se almacenan los números de los 
bloques ocupados por el fichero. La conversión de estos 
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números de bloque a números de pista y de sector no resulta 
dificil pero si engorrosa. El comando *B” nos libera de esta 
tarea. Para ello indique el número de bloque hallado en el 
directorio, el CPC calculará automáticamente los valores 
correspondientes y los mostrará en la linea de cabecera. 
Mediante ”R  (ENTER)” podrá usted obtener y leer después el 
primer sector calculado del bloque. Obtendrá el segundo 
sector pulsando la tecla ”Cursor Right”. 


El comando ?”C”? le muestra un directorio normal del disco 
insertado. Esta función es bastante práctica ya que no ha de 
abandonar usted el programa para conseguir una visión 
general del contenido del disco. 

Ya que el programa está escrito en gran parte en BASIC, 
resulta especialmente ¡indicado para ser ampliado mediante 
rutinas y comandos propios. Una ampliación posible es la de 
mostrar el formato del disco introducido y reconocer el 
cambio de disco. Si leyó un disco en el formato de datos, 
deberia resignarse a enviar antes la orden *C” en el cambio 
de formato, para que el AMSDOS determine el formato 
modificado y modifique correspondientemente el DPB. Podria 
resolver el problema, por ejemplo desconectando los mensajes 
de error y comprobando, de la mano de los flags, si el 
sector fue leido con éxito. Si no es el caso, puede saltar a 
la rutina del AMSDOS para conseguir el formato (*+C56C) y 
volver a leer el sector. 


Dtro punto débil que podria usted modificar, es el comando 
”B. Funciona correctamente SOLO en los formatos de CP/M 
estandar y Vendor. Los resultados son, en otros formatos, 
erróneos. 


Otra posibilidad de ampliación seria la de dar salida por 
impresora al contenido de sector. Podria servir para ello la 
rutina de volcado hexadecimal del ejemplo para lectura de un 
único sector. 
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El monitor de diskette 
1000- *****Discmonitor***** 


1010 * REXXKXK KBR 1/7/4783 XXKXKXK 

1020 *” 

1030 DEFINT a-1,n-z 

1040 MEMORY 2A000-1 

1050 MODE 2 

1060 LOCATE 10,10:PRINT"Un momento por favor ....... E 
1070 GOSUB 9000: *definir ventanas y pokear l.m. 

1080 CLS 41 

1090 befs$=" " 

1100 buffer = 2%A2 

1110 comd$="CRWMB"+CHR$ (FO) +CHR$ (%F 1) +CHR$ (UF2) +CHR$ (2% F3) 
1120 comdt=cmd$+CHR$ (LF 5) +CHR$(2F7) 

1130 FOR i=1 TO LEN(cmd$) :cmdi$=cmd1$+MID$ (cmd$,i,1)+",":NEX 
7 

1140 cmd1$=LEFTS$ (cmd1$,LEN(cmd1$)-1) 

1150 sector = litrack = O:drive = O:z:befehl = $84:catflag = O 
1150 ” : 

1170 ” 

2000 ? XXXXX programa principal XXXXX 

2010 ” 

2020 POKE 2%A108,buffer:POKE 2%A10A,buffer 

2030 LOCATE 4+1,1,1:CLS 

2040 GOSUB £000 : "mostrar una pagina 

2050 PRINT"comando "cmd1s$" >" 

2060 bef$=UPPERS$(INKEYS$):1F bef$="" THEN 2060 ELSE CLS 
2070 ON INSTR(cmd$,bef$)60TO 3100,3150,3200,3250,3300,3500,3 
550, 3600, 3650, 3400, 3450 

2080 GOTO 2050 

2090 ” 

2100 ” 

3000 ? XAXXX tabla de comandos XXXXX 

3010 ” 

3100 ? XXXXX comando-d XkXXXX 

3110 GOSUB 4000 : GOTO 2050 

3120 ” 

3150 ? XXXX%* comando—r XXXXX 

3160 GOSUB 5000 : GOTO 2020 
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3170, 

SGZ00 * EEXFA COMANDO-W XXXAX 

3210 GOSUB 5100 : GOTO 2020 

3220 ” 

3250 ? XXAXXA Ccomando-m XXXXX 

3260 GOSUB 7000 : GOTO 2030 

3270 ” 

3300 ? XXXAXX comando-b XXXXAX 

3310 GOSUB 8000 : GOTO 2030 

3320 ” 

3400 ? XXXXX mostrar primera pagina XXXXX 

3410 POKE %A108,buffer:POKE %A10A,buffer:GOTO 2030 

3420 ” 

3450 ? XXXAXX mostrar segunda pagina XXXXX 

3460 POKE %A108,buffer + 1:POKE %A10A,buffer + 1:G60TO 2030 
3470 ” 

3500 ? XXXAXA track + 1 XXXXX 

3510 track=- (track<39)+track+((track=39)Xx39):G60SUB 5500: GOTO 
2020 

3520 ” 

3550 ? XXXXX track — 1 XXXXX 

3560 track=(track>0)+track+(-(track=0)x39) : GOSUB 5500:GOTO 2 
020 

3570 ” 

3600 ”? *XXXXX sector — 1 XXXXX 

3610 sector=(sector >1)+sector+(-(sector=1)x (PEEK (XASAO+ (dri v 


ex64))-1)) 
3620 IF sector=9 THEN GOTO 3350 ELSE GOSUB S5500:GOTO 2020 
3630 ” 


3650 ” XXXXX sector + 1 XXXAX 

3660 sector=- (sector<9)+sector+((sector=9) * (PEEK (XABAO+ (dri v 
ex5b4))-1)) 

3670 IF sector=1 THEN GOTO 3500 ELSE GOSUB 5500:GOTO 2020 
3680 ” 

4000 ”? XXXX%X mostrar directorio XAXXX 

4010 WINDOW SWAP 0,1:CLS:PRINT: :¡DIR: WINDOW SWAP 1,O:zcatflag 
= 1 

4020 RETURN 

4030 ” 

5000 ”? XxXXX% leer sector XxXXXxX 

5010 PRINT" leer sector ":PRINT 

5020 GOSUB 5800:GOTO 5500 

5030 ” 

5100 ”? £3%%X%X escribir sector X1xxx 

5110 befehl = 985: PRINT" escribir sector ":PRINT 
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5120 
5130 
5500 
3510 
5520 
5530 
5540 
559590 
5560 
5800 
5810 


GOSUB 5800 


7" XAXXAXX leer/escribir sector *XXXXX 

FOKE 2A100,befehl 

FOKE 2A104,drive 

POKE %A105,track 

POKE %A106,sector-1 + PEEK(XA89F+drivex2z.40) 
CALL RAOAO:befehl = 284: RETURN 


"o XXXXX elegir disco, pista y sector XXXXX 
INPUT" disco (0/1) o bien enter ";drives+$:1F drive+$= 


"" THEN RETURN 


s5e20o 
583 

5840 
5850 
5860 
6000 
6010 
6020 
6030 
ctor 
6040 
6050 
6060 


drive = VAL (drives) 

INPUT" pista (0-29) "¡track 

INPUT" sector (1-9) "sector 

RETURN 

7 XAXXAXA mostrar XXXXAX 

IF catflag = 1 THEN catflag = O:CLS $1 

WINDOW SWAP 0,1 

PRINT USING" ¿o disco HH ; pista Hit : se 
HH ¡";drive,track,sector 

PRINT 

IF INKEY$ <> "" GOTO 6070 

IF INSTR("BW",bef$) = O THEN CALL 2%BB81:CALL %A000: CALL 


UBB84 


6070 
6080 
6090 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 


WINDOW SWAP 1,0 
RETURN 


> XAXXXX modificar XXXXX 

PRINT" modificar buffer" 

INPUT"direccion de buffer ";zbuadrs*$ 

IF buadr$ = "" than buadr=0 ELSE buadr=VAL ("%"+buadr+$) 
madr=buadr+(bufferx256) 

PRINT HEX$ (buadr,4)3”  ";HEXS$(PEEK(madr),2)3;3"  "; 
INPUT newbyt$:newbyt$=UPPERS$ (newbyt $) 

IF newbyt$="X" THEN RETURN 

IF newbyt$="" THEN GOTO 7110 
newbyt=VAL ("2 "+newbyt$):newbyt+$="" 

POKE madr,newbyt 
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7110 buadr=buadr+1:GOTO 7040 


7120 


8000 ? XXXXX convertir numero bloque XXXXX 


8010 PRINT" 
8020 INPUT" 


numero de bloque (amsdos-format)" 
numero de bloque (en hex) "sblock$ 


8030 block$="2"+block*$: a=VAL (block%) 


8040 sectecnt=aXx2+18 
8050 track = INT((ax2+18)/9) 
tax2+18) MOD 9 + 1 


8060 sector = 
8070 RETÚRN 
gogo ” 


9000 ”? XXXXX definir ventanas XXXXX 


9010 WINDOW *$0,1,80,20,25 
9020 WINDOW +t1,1,80,1,19 


9030 


9100 ”? XXXXX DATAS PARA HEXDUMP/SECTOR 1-0 XxXxXxXxX 


9110 FOR i = %A000 TO %AOBC 
POKE i,byte 


9120 READ byte 


2: 5S=S53+byte : NEXT 


9130 DATA 2C3,£2D,%A0,%7C,%CD,%08,%M0,£7D,3F5,2%:1F,%1F,2:1F, 21 


F,%CD,211,2M0 


9140 DATA 2£F1,%E6,%0F,£C6,%30,%FE, £3A, 38, 02,806,807, 803, 85 


A, BB, £3E, OD 


9150 DATA 2£.CD,£5A,%BB,£3E,%04,203,2%5A, BB, £3E,820,%C03,25A, £B 


B,£2A, £:07,2M1 


9160 DATA 2£ED,%5B,%09,2%A1,%FD,821,%01,%00,206,%10,2%E5,805, £E 


D,2%:4B,%0B, 2 A1 


9170 DATA £:09,£CD,%03,£M0,%C1,8E1,%CD,828,2%A0, RCD, £28,8M0, 87 


E,%.CD, 2:08, M0 


9180 DATA %FD,2%2B,%CD, 39:28, %:A0,2A47,%ED,%52,2%19,%428,%20,%923,%1 


O, EE,%01,%FO 


9190 DATA £FF,%09,2£06,2%10,£CD,%28,8M0,2%7E,4E6,27F,£FE, 820,83 


8,%02,418,%02 


9200 DATA £:3E,£2E,%CD,25A,%BB,£23,%10,8EF,2CD,%1E,8M0, LES, 83 


7,%ED,£52, 4E1 


9210 DATA 2£C8,%FD, *E5,%C1,%0D,%18,%B1,%05,8%3E,%10,%90,2%4F, :0 


6,%00,8:ED, 2:42 


9220 DATA 2:23,£41,%18,£D0,%4E,84B,2£3A,%4C,244,£09,241,820,82 


2,820,822, 0D 


9230 DATA 221,%00,%AM1,%CD,2£D4,%BC,£22,801,8AM1,2%79,%32,403,2A 


1,%21,%04,%A1 
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9240 DATA 2%5E,%23,2%56,%23,%4E,%21,%00,%A2,4DF,%01,%M1,%09,%2 
D 

9250 IF s <> 20027 THEN PRINT "error en suma de prueba" : E 
ND 

9260 S=0 

9270 FOR i = 4A100 TO KA1OC 

9280 READ byte : POKE i,byte : sS= s + byte : NEXT 

9290 DATA 284,%00,%00,%00,%00,%00,2%:01,%500,%A2,2%FF,%:A2,%00,85 
E 

9300 IF s <> 806 THEN PRINT "error en suma de prueba” : END 
9310 RETURN 
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5.6 El manager de discos 


El manager de disco sirve para la creación y cuidado de 
discos de trabajo. Ofrece las diversas funciones en los 
puntos de un menúá de modo que, por ejemplo para formatear un 
disco ya no ha de cargar el CP/M. Tras teclear el manager de 
disco, deberia asegurarlo almacenándolo en un diskette. Tras 
iniciar el programa, obtendrá el siguiente menú en pantalla: 


1) Modificar nombre de ficheros 

2) Borrar ficheros 

3) Formatear un disco 

4) Mostrar directorio 

5) Copiar FICHEROS DE NO-PROGRAMA 

6) APPEND — Encadenar 2 ficheros 

7) Mostrar contenido de un fichero (TYPE) 


9) Fin del programa 


Para elegir un punto del menú pulse simplemente en el 
teclado la cifra correspondiente (sin tecla ENTER). 
Inmediatamente entrará en la rutina respectiva. 

Para simplificar la explicación, trataremos uno a uno los 
puntos del menú: 
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1) Modificar nombre de ficheros 


Este punto del menú le ayudará a modificar el nombre de un 
fichero. Se le pregunta el nombre del fichero que desea 
modificar. Introduzca el nombre correspondiente y pulse la 
tecla ENTER. 


Si desea abandonar un punto del mená, pulse la tecla ENTER 
sin dato alguno en la entrada de cualquier campo. 


Tras haber dado el nombre del fichero, se le preguntará por 
el nuevo nombre. Si, por ejemplo, desea cambiar el nombre de 
un fichero "A" por el nombre "B", introduzca "A" como nombre 
viejo y "B” como nombre nuevo. 


Se le pedirá que introduzca el disco en el que se halla el 
fichero que usted desea renombrar. Tras pulsar una tecla, el 
nombre del fichero es modificado en el disco. 


2) Borrar ficheros 


Este punto es el más cómodo del manager de discos. Sirve 
para "ordenar" discos. QDuedará asombrado de todo lo que 
llega a reunirse en un disco, entre programas y datos. Con 
esta rutina puede liberar a su disco de programas y datos 
viejos y nada importantes, de una forma cómoda. 


Tras mostrar el directorio en pantalla, puede "recorrer" con 
el cursor los distintos nombres de fichero. Pulsando la 
tecla COPY puede marcar un fichero para borrado — el campo 
correspondiente intermitiráa de rojo a rosa — o retirar una 
tal marca. 
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fuando haya marcado todos los ficheros que desee borrar, 


pulse la tecla ENTER. Se le volverá a preguntar si ha 
marcado todos los ficheros que desea borrar y si desea 
realmente borrarlos. Tras confirmar estas preguntas, los 


ficheros marcados son borrados del disco. 


A nosotros en particular, esta rutina se nos ha mostrado muy 
útil para depurar discos, sobre todo por no ser tan 
"lanzada" como el comando IERA,da$ con el se borran muy 
fácilmente ficheros que no pretendiamos eliminar. 


23) Formatear un disco 


Este punto del menú es especialmente interesante puesto que 
no hay otro modo de formatear un disco desde el BASIC, y 
todos los programas que sean confortables deberian ofrecer 
este punto del menú. 

Esta rutina de formatear es más rápida que la rutina bajo 
CP/M; sim embargo se renuncia a una consulta de seguridad, 
es decir, no se comprueba cada sector formateado. Nosotros 
no hemos tenido nunca problemas con discos formateados 
mediante esta rutina. No obstante, si alguien desea tener 
completa seguridad, deberia emplear la rutina CP/M FORMAT. 


Puede formatear en formato Vendor y em formato de sólo 
datos; no está previsto el formateo en formato IBM. 


El formato Vendor significa que el disco es formateado como 
disco de sistema CP/M en el que sin embargo no se halla el 
CP/M, pero que podrian copiarse posteriormente 


Lo normal seria formatear su disco en el formato 
Data-On1ly-Format; podria asi aprovechar la capacidad total 
del disco para el almacenamiento de datos y programas BASIC. 
Tras elegir el formato, se le pide que introduzca el disco a 
formatear y que pulse una tecla cualquiera. 
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5) Copiar FICHEROS DE NO-PROGRAMA 


Mediante esta rutina no se pueden copiar ficheros de 
programa, pero si ficheros de datos generados por programas. 
Puede elegir entre copiar los ficheros fuente y objeto en el 
mismo disco o en discos distintos. Si los ficheros fuente y 
objeto se hallan en el mismo disco, no existen limitaciones 
respecto a la longitud de los ficheros en si. Si se copia de 
un disco a otro, sólo es posible un máximo de 250 juegos de 
datos. En caso de que el fichero a copiar sea demasiado 
largo, ello le será comunicado en pantalla. 


5) APPEND — Encadenar 2 ficheros 


Este punto del menú puede convertir dos ficheros en uno. Se 
le pregunta por los nombres de los dos ficheros que han de 
ser encadenados: el primer fichero supondrá la primera parte 
del nuevo fichero, el segundo fichero irá encadenado detrás. 
El fichero objeto será creado en el mismo disco en el que se 
hallan ambos ficheros fuente. 


7) Mostrar contenido de un fichero 


Este punto del menú hace lo mismo que el comando TYPE bajo 
CP/M — le muestra en pantalla el contenido de un fichero 
ASCII. Pulsando cualquier tecla puede detener y reemprender 
el proceso. 


Estoy convencido de que estas rutinas le proporcionarán un 
buen servicio en su tarea cotidiana con la unidad de disco 
Amstrad. 
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tia 
70 

Y3c 
go 

18 
90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
N3 
210 
220 
230 


240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


PORCINA RARA RARA ANA 
"XXXk Manager de discos ---— JS/RB 1.5.85 Xxx 
POIOIOIOIRIOIOIOIRIOICIOIOIOIOIRIOIOIOICOOICRO OOOO 


OPENOUT "dummy" : MEMORY HIMEM-1 : :CLOSEOUT 


DATA %3e,%00,%32,42f,%480,%3a,%62f,480,%457,%3a,%30,%480,2%5f, 
»431,%80 
DATA 2:4f,3921,%35,%80,%df,%32,%580,%3a,842f,%480,%fe,%27,%4Cc8, 
»U32, 24 
DATA 280,221,835,%80,%06,8:09,877 423, U23. UZ3,U23,%10,%49, 
, “d6, 427 
DATA 2%00,%41,%52,%cC6,%07 
FOR i=%8000 TO 28034 
READ d 
POKE i,.d 
s=s+d 
NEXT 
IF s<>4258 THEN PRINT"xXxXX Error en Datas XXXx":END 


MEMORY xRX7FFF 


CLEAR : DEFINT b-z 

MODE 1 : INK 0,11 : INK 1,16,6 : INK 2,0 : INK 3,24 : PE 
: PAPER 2 : CLS 

BORDER O 

CLS : ORIGIN 0,0,0,640,340,400 : CLG 3 

PAPER 3 : PEN 2 : LOCATE 14,2 : PRINT"Mamager de discos" 
PAPER 2 : PEN 3. 

LOCATE 1,7 

PRINT"1) Modificar nombre de ficheros" 

PRINT"2) Borrar ficheros” 

PRINT"3) Formatear un disco" 

PRINT"4) Mostrar directorio" 

PRINT"S) Copiar FICHEROS DE NO PROGRAMA 

PRINT"6) APPEND -— Encadenar 2 ficheros" 

PRINT"7) Mostrar contenido de un fichero" 

PRINT : PRINT"9) Fin de programa" 

LOCATE 1,20 : PEN 1 : PRINT "Su eleccion:" 
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340 a$=INKEYS% : IF at="" THEN 340 

350 we=VAL (a$) : IF we<i OR (we>7 AND we<>9) THEN 340 

360 PEN 3 : ON we GOTO 1200,550,380, 1120, 1340,1700,1900,1900 
2100 

, 


420 CLS : PRINT"1) Formato Vendor" : PRINT : PRINT"o0" : PRIN 
T : PRINT"2) Formato Data-Only" 

430 a$7 INKEYS$ 2 IF a$<"1" OR a$>"2" THEN 430 

440 IF a$="1" THEN £f$="Vendor" : y=%41 ELSE f$="Data-Only" : 
y=*C1 

450 x=%8035 

.460 FOR i=1 TO 9 

470 POKE x,0 2: POKE x+1,0 : POKE x+2,y 3: POKE x4+3,2 

480 x=x +4 

490 y=y+2 2: IF (y AND %F) = £B THEN y=y-9 

500 NEXT 

510 PRINT : PRINT"Por favor, introduzca el disco" : PRINT"y 
pulse una tecla...” 

520 IF INKEYS$="" THEN 520 

530 CALL %8000 : GOTO 190 

540 ” 

550 *==o==crrmcmmosos=oo=soo=s==m=o== 

560 ” Borrar Ficheros 

570 *=======cmc=zsmmocoiocoso==== 

580 : 

590 DIM a$(65),era(64)  —:CLS 

600 LOCATE 4,11 : PRINT"Se esta leyendo el directorio ...” 
610 PRINT : PRINT" un momento, por favor 

620 lin$=STRING$ (40, 154) 

630 FOR i=0 TO 63 

640 at (i)=STRING$ (11,32) 

650 NEXT 

660 a=PEEK(R«BB5SA) : POKE KBBSA,%$C9 : CAT : POKE £KBBSA, a 
670 anz=PEEK(XA912) : a=PEEK(2%A79C)x256 + PEEK(2A479B)+1 
680 CLS 

690 FOR i=0 TO anz 
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700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
310 
820 
830 
840 
850 
860 
870 
a8o 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
ER 2 
o 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


POKE Ba$(i)+1,a—-(INT(a/256) 1256) 
FOKE Ga$(1)+2, INT(a/256) : a=a+14 
NEXT 
FOR i=0 TO anz 
IF ASCI(LEFTS (a$(1),1)) = O THEN a=i : i=anz 3: GOTO 770 
a$(i)=LEFT$(a$(1),8) + "." + RIGHT$(a$(1),3) 
PRINT as$(i), 
NEXT : anz=a 
LOCATE 1,22 : FRINT lins$ 
txt$="Borrar en este disco? (S/N)" : GOSUB 1090 
GOSUB 1100 : IF LOWER$(a$)="s" THEN 840 
txt$="ENTER = nuevo disco, X = Fin" : GOSUB 1090 
GOSUB 1100 : IF a$=CHR$(13) THEN ERASE at$,era : GOTO 550 
IF LOWERS$(a$)="x"” THEN 190 ELSE 820 
txt$="Tecla *COPY”? marca para borrar" : GOSUB 1090 
x=0 2 xc=1 : yec=1 : GOTO 950 
x«=temp : GOSUB 1100 : IF a$=CHR$(13) THEN 1000 
IF ASC(a$)=x%FO THEN x=x-3 IF x<0 THEN 860 ELSE 950 
IF ASC(a$)=2%F1 THEN x=x+3 IF x>anz-1 THEN 8460 ELSE 950 
IF ASCta$)=%F2 THEN x=x-1 IF x20 THEN 860 ELSE 950 
IF ASC(a$)=2%F3 THEN x=x+1 IF x>anz-1 THEN 860 ELSE 950 
IF ASC(a$)<>%EO THEN 860 
eratx) = era(x) XOR 1 ”* Invierte campo 
LOCATE xc,yc : PAPER era(íx) 
PRINT a$(x)3 : PAPER 2 : GOTO 860 
yco = x13+1 2 xco = (x- ((yco-1)Xx3))k13+1 
LOCATE xc,yc : PAPER (era(temp)=0)*x-2+era(temp) 
PRINT a$(temp); : PAPER 2 
LOCATE xco,yco : PAPER era(x) : PRINT a$(x)3 : PAPER 2 
XC=XCO 2: ye=yco : temp=x : GOTO 860 
LOCATE xc,yc : PAPER 2+(eraíx)<>0) : PRINT a$(x)3 : PAP 
2 txt$="Todos los ficheros marcados? (S/N)" : GOSUB 109 


GOSUB 1100 : IF LOWER$(a$)<>"s" THEN 840 
txt$="Borrar efectivamente (S/N)" : GOSUB 1090 
GOSUB 1100 : IF LOWER$ (a$)<>"s" THEN 840 
txt$="Se borran los ficheros !'" : GOSUB 1090 
FOR i=0 TO anz 

IF era(i) THEN ¡ERA,Bas$(i) 

NEXT 

GOTO 190 
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1090 LOCATE 4,24 : FRINT CHR$(20);txt%$ : RETURN 
1100 a$=INKEYS$ : 1F at$="" THEN 1100 ELSE RETURN 
1110 ” 

1120 ? ======================o=========== 

1130 ” Muestra contenido disco 

1140 ? ===============o================== 

1150 : 

1150 CLS : CAT 

1170 PRINT : PRINT"Pulsacion de tecla ..." 

1180 IF INKEY$="" THEN 1180 ELSE 190 

1190 : 

1200 ? ==================o====o==o========= 

1210 ” Modificar nombre de fichero 

1220 ?*=============m====:o====o=o========== 

1230 : 

1240 CLS 

1230 INPUT "Nombre del antiguo fichero : ",falt% : IF falt$= 
"" THEN 190 


1260 INPUT "Nuevo nombre del fichero : ",Neu$ : IF neu$="" T 
HEN 190 
1270 PRINT PRINT"For favor, introduzca el disco" 


1280 PRINT : PRINT"en el que se halla el fichero, "CHR$(24);4 
alt$;CHR$ (24) 

1290 PRINT : FRINT"y pulse una tecla" 

1300 IF INKEY$="" THEN 1300 

1310 ¡REN, £neu$,Bfalt$ 

1320 GOTO 190 

1330 ” 


1380 CLS : INPUT "Nombre del fichero fuente : ",quell$ : 1F 
quell$="" THEN 190 

1390 INPUT "Nombre del fichero de destino : ",ziel$ : IF zie 
1$="" THEN 190 

1400 INPUT “Copiar en otro disco (S/N) : ",jn$ 

1410 IF LOWERS$(jn$)="n" THEN 1620 

1420 DEFSTR a : DIM a(250) 

1430 PRINT : PRINT"Por favor, introduzca el disco fuente" 
1440 PRINT"y pulse una tecla" 
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1450 IF INKEY$="" THEN 1450 

1460 OPENIN quel1l$ 

1470 WHILE NOT EDF 

1480 LINE INPUT $9,a(xc) 

1490 xc=xc+1 : IF xc>250 OR FRE(0)<2000 THEN PRINT CHR$ (7) 
"El fichero es demasiado grande" : FOR i=1 TO 1000: NEXT: CLOS 
EIN:RUN 190 

1500 WEND 

1510 CLOSEIN 

1520 PRINT : PRINT CHR$(7) "Por favor, introduzca el disco de 
stino" 

1530 PRINT"y pulse una tecla" 

1540 IF INKEY$="" THEN 1540 

1550 PRINT : PRINT"Se copian "xc" juegos de datos." 

1560 OPENOUT ziel$ 

1570 FOR i=0 TO xc 

1580 PRINT 49,a(i)3 : IF LEN(a(i))<255 THEN PRINT 49 

1590 NEXT 

1500 CLOSEOUT 

1610 RUN 190 

1620 OPENIN quell$ : OPENOUT ziel$ 

1630 WHILE NOT EOF 

1540 LINE INPUT 49,a$ 

16450 PRINT 49,a$ 

16560 WEND 

1670 CLOSEIN : CLOSEOUT 

16580 GOTO 190 


1590 

1700 *=====m==mmcmczmmomccmimiscocoism=o== 
1710 ” Encadena dos ficheros 

1720 *===zczmmmmscmcommoic:========== 
1730 ” 


1740 CLS: INPUT "Nombre del primer fichero : ",f$(0) : IF £ 
$(0)="" THEN 190 

1750 INPUT "Nombre del segundo fichero : ",f$(1) : IF f$(1)= 
"" THEN 190 

1760 INPUT "Nombre del fichero destino : ",f3%$ : IF $3$="" T 
HEN 190 

1770 PRINT : PRINT"ok" 

1780 OPENOUT £3$ 

1790 FOR i=0 TO 1 
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1800 OPENIN +4$(1) 

1810 WHILE NOT EOF 

1820 LINE INPUT +$9,a% 

1830 PRINT $9,as$ 

1840 WEND 

1850 CLOSE IN 

1860 NEXT 

1870 CLOSEOUT 

1880 GOTO 190 

1890 ” 

1900 *============o==c===================== 
1910 ”? Muestra contenido de un fichero 
1920 ? =============z===m===o================ 
1930 : 

1940 ON ERROR GOTO 2090 

1950 CLS : INPUT "Nombre del fichero 2: ",f$ : IF f$="" THEN 
190 

19560 MODE 2 : PEN 1 : INK 1,1 : PRINT"Contenido del fichero 
"f +$ 

1970 PRINT STRING$ (80, "—") 

17980 OPENIN f% 

1990 WHILE NOT EOF 

2000 LINE INPUT 49, as 

2010 PRINT as$ 


2020 IF INKEY$="" THEN 2040 
2030 IF INKEY$="" THEN 2030 
2040 WEND 


2050 CLOSE IN 
2060 PRINT : PRINT"Pulsacion de tecla" 


2070 IF INKEY$="" THEN 2070 

2080 GOTO 190 

2090 PRINT"File Type Error — El fichero no es ASCII !!'" : RE 
SUME 2060 


2100 CLS : PEN 1 : PRINT"Programa finalizado 
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Ofrece un campo fascinante y amplio de 
problemáticas científicas. Para esto el 
libro contiene muchos listados intere- 
santes: Análisis de Fornier y síntesis, 
análisis de redes, exactitud de cálculo, 
formateado de números, cálculo del 
valor PH, sistemas de ecuaciones dife- 
renciales, modelo ladrón presa, cálculo 
de probabilidad, medición de tiempo, 
integración, etc 

64 en el campo de la Técnica y la 
Ciencia. 361 págs. P.V.P. 2.800,- 
ptas. 


Un excelente libro, que le mostrará 
todas las posibilidades que le ofrece su 
grabadora de casettes. Describe deta- 
lladamente, y de forma comprensible, 
todo sobre el Datassette y la grabación 
en cassette. Con verdaderos programas 
fuera de serie: Autostart, Catálogo 
(¡busca y carga automáticamente!), 
backup de y a disco, SAVE de áreas de 
memoria, y lo más sorprendente: un 
nuevo sistema operativo de cassette 
con el 10-20 veces más rápido Fast 
Tape. Además otras indicaciones y 
programas de utilidad (ajuste de cabe- 
zales, altavoz de control). 

El Manual del Cassette. 190 pág. 
P.V.P. 1.600,- ptas. 


CONSEJOS Y TRUCOS, con más de 
70.000 ejemplares vendidos en Alema- 
nia, es uno de los libros más vendidos 
de DATA BECKER. Es una colección 
muy interesante de ideas para la pro- 
gramación del Commodore 64, de PO- 
KEs y útiles rutinas e interesantes 
programas. Todos los programas en 
lenguaje máquina con programas car- 
gadores en Basic. 

64 Consejos y Trucos. 1984, 364 pág. 
P.V.P. 2.800,- ptas. 


En el libro de los robots se muestran las 
asombrosas posibilidades que ofrece el 
CBM 64, para el control y la programa- 
ción, presentadas con numerosas ¡lus- 
traciones e intuitivos ejemplos. El punto 
principal: Cómo puede construirse uno 
mismo un robot sin grandes gastos. 
Además, un resumen del desarrollo 
histórico del robot y una amplia intro- 
ducción a los fundamentos cibernéti- 
cos. Gobierno del motor, el modelo de 
simulación, interruptor de pantaila, el 
Port-Usuario cómodo del modelo de 
simulación, Sensor de infrarrojos, con- 
cepto básico de un robot, realimenta- 
ción unidad cibernética, Brazo prensor, 
Oír y ver. 

Robótica para su Commodore 64. 340 
págs. P.V.P. 2.800 ptas. 
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La obra Standard del floppy 1541, todo 
sobre la programación en disquettes 
desde los principiantes a los profesio- 
nales, además de las informaciones 
fundamentales para el DOS, los coman- 
dos de sistema y mensajes de error, 
hay varios capítulos para la administra- 
ción práctica de ficheros con el FLOP- 
PY, amplio y documentado Listado del 
Dos. Además un filón de los más 
diversos programas y rutinas auxilia- 
res, que hacen del libro una lectura 
obligada para los usuarios del Floppy. 
Todo sobre el Floppy 1541. Precio 
venta 3.200 ptas. 


¡Por fin una introducción al código 
máquina fácilmente comprensible! 
Estructura y funcionamiento del proce- 
sador 6510, introducción y ejecución 
de programas en lenguaje máquina, 
manejo del ensamblador, y un simula- 
dor de paso a paso escrito en BASIC. 
Lenguaje máquina para Commodore 
564. 1984, 201 pág. P.V.P. 2.200,- 
ptas. 


Este libro, contiene muchos interesan- 
tes programas de aprendizaje para 
solucionar problemas, descritos deta- 
lladamente y de manera fácilmente 
comprensible. Temas: progresiones 
geométricas, palanca mecánica, creci- 
miento exponencial, verbos irregulares, 
ecuaciones de segundo grado, movi- 
mientos de péndulo, formación de 
moléculas, aprendizaje de vocablos, 
cálculo de interés y su capitalización. 


Manual escolar para su Commodore 
64. 389 págs. P.V.P. 2.800,- ptas. 


Saberse apañar uno mismo, ahorra 
tiempo, molestias y dinero, precisa- 
mente problemas como el ajuste del 
floppy o reparaciones de la platina se 
pueden arreglar a menudo con medios 
sencillos. Instrucciones para eliminar la 
mayoría de perturbaciones, listas de 
piezas de recambio y una introducción a 
la mecánica y a la electrónica de la 
unidad de disco, hay también indicacio- 
nes exactas sobre herramientas y mate- 
rial de trabajo. Este libro hay que 
considerarlo en todos sus aspectos 
como efectivo y barato. 


Mantenimiento y reparación del 


Floppy 1541. 325 págs. P.V.P. 2.800,- 
ptas. 
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Este es el libro que buscaba: un 
diccionario general de micros que con- 
tiene toda la terminología informática 
de la A a la Z y un diccionario técnico 
con traducciones de los términos ingle- 
ses de más importancia - los DICCIO- 
NARIOS DATA BECKER prácticamente 
son tres libros en uno. La increíble 
cantidad de información que contienen, 
no sólo los convierte en enciclopedias 
altamente competente, sino también en 
herramientas indispensables para el 
trabajo. El DICCIONARIO DATA BEC- 
KER se edita en versión especial para 
APPLE Il, COMMODORE 64 e IBM PC. 
El diccionario para su Commodore 64. 
350 pág. P.V.P. 2.800,- ptas. 


¿Ud. ha logrado iniciarse en código 
máquina? Entonces el «nuevo English» 
le enseñará cómo convertirse en un 
profesional. Naturalmente con muchos 
programas ejemplo, rutinas completas 
en código máquina e importantes con- 
sejos y trucos para la programación en 
lenguaje máquina y para el trabajo con 
el sistema operativo. 

Lenguaje máquina para avanzados 
CBM 64. 1984, 206 pág. P.V.P. 2.200 
ptas. 


Gráficos para el Commodore 64 es un 
libro para todos los que quieren hacer 
algo creativo con su ordenador. El 
contenido abarca desde los fundamen- 
tos de la programación de gráficos 
hasta el diseño asistido por ordenador 
(CAD). 

Gráficos para el Commodore 64. 295 
pags. P.V.P. 2.200,- ptas. 


Con más de 60.000 ejemplares vendi- 
dos, ésta es la obra estándar para el 
COMMODORE 64. Todo sobre la tecno- 
logía, el sistema operativo y la progra- 
mación avanzada del C-64. Con listado 
completo y exhaustivo de la ROM, 
circuitos originales documentados y 
muchos programas. ¡Conozca su C-64 
a fondo! 

564 Interno. 1984, 352 pág. P.V.P. 
3.800,- ptas. 
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Casi todo lo que se puede hacer con el 
Commodore 64, está descrito detalla- 
damente en este libro. Su lectura no es 
tan sólo tan apasionante como la de una 
novela, sino que contiene, además de 
listados de útiles programas, sobre 
todo muchas, muchas aplicaciones rea- 
lizables en el C64. En parte hay listados 
de programas listos para ser tecleados, 
siempre que ha sido posible condensar 
«recetas» en una o dos páginas. Si 
hasta el momento no sabía que hacer 
con su Commodore 64, ¡después de 
leer este libro lo sabrá seguro! 

El libro de ideas del Commodore 64. 
1984, más de 200 páginas, P.V.P. 
1.600,- ptas. 


Este libro ofrece una amplia práctica 
introducción en el importante tema de 
la gestión de ficheros y bancos de 
datos, especialmente para los usuarios 
del Commodore 64. Con muchas inte- 
resantes rutinas y una confortable ges- 
tión de ficheros. 

Todo sobre bases de datos y gestión 
de ficheros para Commodore-64. 221 
págs. P.V.P. 2.200,- ptas. 


Para los usuarios que posean un VIC- 
20, C-64 o PC-128 este libro contiene 
gran cantidad de consejos, trucos, 
listados de programas, así como infor- 
mación sobre Hardware, tanto si usted 
dispone de una impresora de margarita 
o de matriz, como si tiene un Plotter 
VC-1520, el GRAN LIBRO DE IMPRE- 
SORAS constituye una inestimable 
fuente de información. 

Todo sobre impresoras. 361 págs. 
P.V.P. 2.800,- ptas. 


Con importantes comandos PEEK y 
POKE se pueden hacer también desde el 
Basic muchas cosas, para las que se 
necesitarían normalmente complejas 
rutinas en lenguaje máquina. Con una 
enorme cantidad de POKEs importantes 
y su posible aplicación. Para ello se 
explica perfectamente la estructura del 
Commodore 64: Sistema operativo, 
interpretador, página cero, apuntadores 
y stacks, generador de caracteres, 
registros de sprites, programación de 
interfaces, desactivación de interrupt. 
Además una introducción al lenguaje 
máquina. Muchos programas ejemplo. 
PEEKS y POKES. 177 pág. P.V.P. 
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Este libro presenta una detallada e 
interesante introducción a la teoria, 
conceptos básicos y posibilidades de 
uso de la inteligencia artificial (14). 
Desde un resumen histórico sobre las 
máquinas «pensantes» y «vivientes» 
hasta programas de aplicación para el 
Commodore 64. 

Inteligencia artificial. 395 págs. 
2.800,- ptas. 


Este libro ofrece al programador intere- 
sado una introducción fácilmente com- 
prensible para los tan extendidos As- 
sembler PROFI-ASS, SM MAE y T.E- 
X.ASS. con consejos y trucos de gran 
utilidad, indicaciones y programas adi- 
cionales. Al mismo tiempo sirve de 
manual orientado a la práctica, con 
aclaraciones de conceptos importantes 
e instrucciones. 

El Ensamblador. 250 páginas. 2.200, - 
ptas. 


El libro Commodore 128-Consejos y 
Trucos es un filón para cualquier posee- 
dor del C-128 que desee sacar más 
partido a su ordenador. Este libro no 
sólo contiene gran cantidad de progra- 
mas-ejemplo, sino que además explica 
de un modo sencillo y fácil la configura- 
ción del ordenador y de su programa- 
ción 

Commodore 128-Consejos y Trucos. 
327 págs. 2.800,- ptas. 
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64, Consejos y Trucos vol. 2 contiene 
una gran profusión de programas, 
estímulos y muchas rutinas útiles. Un 
libro que constituye una ayuda impres- 
cindible para todo aquél que quiera 
escribir programas propios con el 
COMMODORE. 

ro hora Commodore 64 
Vol. 2. págs. 2.200,- ptas. 


El libro de Primicias del Commodore 
128 no ofrece solamente un resumen 
completo de todas las características y 
rendimientos del sucesor del C-64 y 
con ello una importante ayuda para su 
adquisición. Muestra, además, todas 
las posibilidades del nuevo equipo en 
hero de sus tres modos de opera- 


Todo sobre el nuevo Commodore 128. 
250 págs. P.V.P. 2.200,- ptas. 


AMSTRAD 





Ofrece una colección muy interesante 
de sugerencias, ideas y soluciones para 
la programación y utilización de su 
CPC-464: Desde la estructura del hard- 
ware, sistema de funcionamiento - 
Tokens Basic, dibujos con el joystick, 


























Escrito para alumnos de los últimos 
cursos de EGB y de BUP, este libro 
contiene muchos programas para resol- 
ver problemas y de aprendizaje, descri- 
tos de una forma muy compleja y fácil 
de comprender. Teorema de Pitágoras, 
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aplicaciones de ventanas en pantalla y u progresiones geométricas, escritura ci- 
otros muchos interesantes programas — [E=+j MANUAL ESCOLAR frada, crecimiento exponencial, verbos 
como el procesamiento de datos, editor irregulares, ¡gualdades cuadráticas, 





































































































de sonidos, generador de caracteres, E as movimiento pendular, estructura de 
monitor de código máquina hasta lista- E CPC 464 E moléculas, cálculo de interés y muchas 
dos de interesantes juegos. HE ] cosas más. 

CPC-464 Consejos y Trucos. 263 págs. |": : HE CPC-464 El ei del colegio. 380 

: P.v.P. 2.200,- ptas. El HE sl págs. P.V.P. 2.200,- ptas. 
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PEEKS, POKES y CALLS se utilizan para 
introducir al lector de una forma fácil- 
mente accesible al sistema operativo y 
al lenguaje máquina del CPC. Propor- 
ciona además muchas e interesantes 
posibilidades de aplicación y programa- 
ción de su CPC 

PEEKS y POKES del CPC 464/6128. 
180 pág. P.V.P. 1.600,- ptas. 


El LIBRO DEL FLOPPY del CPC lo 
explica todo sobre la programación con 
discos y la gestión relativa de ficheros 
mediante el floppy DDI-1 y la unidad de 
discos incorporada del CPC 664/6128. 
La presente obra, un auténtico stán- 
dart, representa una ayuda incompara- 
ble tanto para el que desee iniciarse en 
la programación con discos cómo para 
el más curtido programador de ensam- 
blados. Especialmente interesante re- 
sulta el listado exhaustivamente comen- 
tado del DOS y los muchos programas 
de ejemplo, entre los que se incluye un 
completo paquete de gestión de fiche- 
ros. 

El Libro del pg del CPC. 353 pág. 
P.V.P. 2.800,- ptas. 















































El libro del lenguaje máquina para el 
CPC 464/6128 está pensado para todos 
aquellos a quienes no les resulta sufi- 
ciente con las posibilidades y rapidez 
del BASIC. Se explican aquí detallada- 
mente las bases de la programación en 
lenguaje máquina, el funcionamiento 
del procesador Z-80 con sus respecti- 
vos comandos así como la utilización 
de las rutinas del sistema con abundan- 
tes ejemplos. El libro contiene progra- 
mas completos de aplicación tales co- 
mo Ensamblador. Desensamblador y 
Monitor, facilitando de esta manera la 
introducción del lector en el lenguaje 
máquina. 

El Lenguaje Máquina del CPC 464/ 
6128. 330 pág. P.V.P. 2.200,- ptas. 


¡Dominar CP/M por fin! Desde explica- 
ciones básicas para almacenar núme- 
ros, la protección contra la escritura, o 
ASCII, hasta la aplicación de programas 
auxiliares de CP/M, así como «CP/M 
interno» para avanzados, cada usuario 
del CPC rápidamente encontrará las 
ayudas e informaciones necesarias, 
para el trabajo con CP/M. Este libro 
tiene en cuenta las versiones CP/M 2.2, 
así como CP/M Plus (3.0), para el 
id CPC 464, CPC 664 y CPC 
8. 

CP/M. El libro de ejercicios para CPC... 
260 pág. P.V.P. 2.800,- ptas. 
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Escrito para alumnos de los últimos 
cursos de EGB y de BUP, este libro 
contiene muchos programas para resol- 
ver problemas y de aprendizaje, descri- 
tos de una forma muy completa y fácil 
de comprender. Teorema de Pitágoras, 
progresiones geométricas, escritura ci- 
frada, crecimiento exponencial, verbos 
irregulares, ¡gualdades cuadráticas, 
movimiento pendular, estructura de 
moléculas, cálculo de interés y muchas 
cosas más. 


MSX el Manual Escolar. 389 págs. 
P.V.P. 2.800,- ptas. 


Las computadoras MSX no sólo ofrecen 
una relación precio/rendimiento sobre- 
saliente, sino que también poseen unas 
cualidades gráficas y de sonido excep- 
cionales. Este libro expone las posibili- 
dades de los MSX de forma completa y 
fácil. El texto se completa con numero- 
sos y útiles programas ejemplo. 
MSX Gráficos y Sonidos, 250 págs. 
P.V.P. 2.800, - ptas. 


Fl libro del Lenguaje Máquina para el 
MSX está creado para todos aquellos a 
quienes el BASIC se les ha quedado 
pequeño en cuanto a rendimiento y 
velotidad. Desde las bases para la 
programación en Lenguaje Máquina, 
pasando por el método de trabajo del 
Procesador 2-80 y una exacta descrip- 
ción de sus órdenes, hasta la utilización 
de rutinas del sistema todo ello ha sido 
explicado en detalle e ilustrado con 
múltiples ejemplos en este libro. 

El libro contiene, además, como pro- 
gramas de aplicación, un ensamblador 
un desensamblador y un monitor. 
MSX Lenguaje Máquina. 306 págs. 
2.200,- ptas. 


Una interesante colección de sugestivas 
ideas y soluciones para la programa- 
ción y utilización de su ZX ESPEC- 
TRUM. Aparte de muchos peeks, pokes 
y USRs hay también capítulos comple- 
tos para, entre otros, entrada de datos 
asegurado sin bloqueo de ordenador, 
posibilidades de conexión y utilización 
de microdrives y lápices ópticos, pro- 
gramas para la representación de dia- 
gramas de barra y de tarta, el modo de 
utilizar Óptimamente ROM y RAM 
ZX Spectrum Consejos y Trucos, 211 
pág. P.V.P. 2.200,- ptas. 
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El libro contiene una amplia colección 
de importantes programas que abar- 
can, desde un desensamblador hasta 
un programa de clasificaciones deporti- 
vas. Juegos superemocionantes y apli- 
caciones completas. Los programas 
muestran además importantes consejos 
y trucos para la programación. Estos 
programas funcionan en todos los or- 
denadores MSX, así como en el SPEC- 
TROVIDEO 318 328. 

MSX Programas y Utilidades, 1985, 
194 pág. P.V.P. 2.200,- ptas. 


Este libro contine una colección sin 
igual de trucos y consejos para todos 
los ordenadores con la nueva norma 
MSX. No sólo contiene las recetas 
completas, sino también los conoci- 
mientos básicos necesarios. 

MSX - Consejos y Trucos. 288 págs. 
P.V.P. 2.200,- ptas. 





Escrito para alumnos de los últimos 
cursos de EGB y de BUP, este libro 
contiene muchos programas para resol- 
ver problemas y de aprendizaje, descri- 
tos de una forma muy completa y fácil 
de comprender. Teorema de Pitágoras, 
progresiones geométricas, escritura ci- 
frada, crecimiento exponencial, verbos 
irregulares, igualdades cuadráticas, 
movimiento pendular, estructura de 
moléculas, cálculo de interés y muchas 
cosas más. 

ZX Spectrum el Manual Escolar. 389 
págs. P.V.P. 2.200,- ptas. 
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Tan interesante como el tema, es el 
libro que explica de forma fácilmente 
comprensible el manejo de Peeks y 
Pokes importantes, y representa un 
gran número de Pokes con sus posibili- 
dades de aplicación, incluyendo ade- 
más programas ejemplo. Al lado de 
temas como lo son la memoria de la 
pantalla, los bits y los bytes, el mapa de 
la memoria, la tabla de modos gráficos 
o el sonido, también se detalla de forma 
magnífica la estructura del ATARI 
600XL/800XL/130XE. 

Peeks y Pokes para ATARI 600XL/ 
800XL/130XE. 251 pág. P.V.P. 2.200, 
ptas. 


Jugar a aventuras con éxito y progra- 
marlas uno mismo - todo lo verdadera- 
mente importante sobre el tema, lo 
contiene este guía fascinante que te 
lleva a través del mundo fantástico de 
las aventuras. El libro abarca todo el 
espectro, hasta las más sofisticadas 
aventuras gráficas llenas de trucos, 
acompañándolas siempre de numero- 
sos programas ejemplo. Sin embargo la 
clave —al margen de muchas aventuras 
para teclear— es un generador de 
aventuras completo, mediante el cual la 
programación de aventuras se convierte 
en un juego de niños. 

Aventuras - y cómo programarias en el 
ATARI 600XL/800XL/130XE. 284 pág. 
P.V.P. 2.200,- ptas. 


El primer libro recomendado para es- 
cuelas de enseñanza de informática y 
para aquellas personas que quieren 
aprender la programación. Cubre las 
especificaciones del Ministerio de Edu- 
cación y Ciencia para Estudios de 
Informática. Es el primer libro que 
introduce a la lógica del ordenador. Es 
un elemento de base que sirve como 
introducción para la programación en 
cualquier otro lenguaje. No se requieren 
conocimientos de programación ni si- 
quiera de informática. Abarca desde los 
métodos de programación clásicos a 
los más modernos. 

Metodología de la e o 250 
págs. P.V.P. 2.200,- 


El tema de este libro es la técnica y 
programación de los procesadores de la 
familia 68000. Es una obra de consulta 
indispensable, un manual para todo 
programador que quiera utilizar las 
ventajas del 68000. 

Técnica y programación para el 
procesador 68000. 516 págs. P.V.P. 
3.800,- ptas. 
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Una lograda introducción al sugestivo 
tema de los «juegos estratégicos» 
Desde juegos sencillos con estrategia 
fija a juegos complejos con procedi- 
mientos de búsqueda hasta programas 
con capacidad de aprendizaje —mu- 
chos ejemplos interesantes, escritos 
por supuesto de forma fácilmente com 
prensible. Con programas de juegos 
ampliamente detallados: NIM con un 
montón, bloqueo, hexapawn, mini-da- 
mas y muchos más 

Juegos estratégicos y cómo 
programarlos en el ATARI 600XL/ 
800XL/130XE. 181 pág. P.V.P. 1.600,- 
ptas. 


Muchos programas interesantes de so- 
luciones de problemas y de aprendizaje, 
descritos de forma amplia y comprensi- 
ble, y adecuados sobre todo para 
escolares. ¡Aquí el aprendizaje intensi- 
vo se convierte de una tarea divertida! 
Al margen de temas como los verbos 
irregulares, o las ecuaciones de segun- 
do grado, un resumen corto de las 
bases del tratamiento electrónico de 
datos, y una introducción a los princi- 
pios del análisis de problemas, comple- 
tan este libro que debería obrar en 
posesión de cualquier escolar. 

El libro escolar para ATARI 600XL/ 
800XL/130XE. 389 pág. P.V.P. 2.800,- 
ptas. 





La técnica y programación del Procesa- 
dor Z80 son los temas de este libro. Es 
un libro de estudio y de consulta 
imprescindible para todos aquellos que 
poseen un Commodore 128, CPC, MSX 
u otros ordenadores que trabajan con el 
Procesador 280 y desean programar en 
lenguaje máquina. 

El Procesador 280. 560 pág. P.V.P. 
3.800,- ptas. 
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Puesta al día de datos 


EDITORIAL FERRER MORET, S.A. mantiene vivo y amplía el contenido informativo de sus libros y 
programas, mediante el envío de un servicio de puesta al día, junto con una síntesis noticiosa de la 
actualidad y perspectivas de la realidad informática española. 

Agradecemos cualquier sugerencia o crítica que desee formular y que nos ayude a mejorar las ediciones. 
Muchas gracias. 
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Dirección 


Código Postal y Població Provincia 
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Información y Pedidos 


FERRE MORET, S.A. cuenta con un amplio fondo de libros y Software y mantiene un servicio de información 
por correo sobre las novedades que edita. 
Agradecemos nos indique los temas que representan para Vd. mayor interes. 
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Si está interesado en recibir alguno de estos servicios, rellene y envíe la tarjeta correspondiente; no necesita 
franqueo. Muchas gracias. 
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EL CONTENIDO: 

EL GRAN LIBRO DEL FLOPPY CPC lo explica todo 
sobre la programación con discos y la gestión relativa 
de ficheros mediante el floppy DDI-1 y la unidad de 
discos incorporada del CPC 664/6128. La presente 
obra, un auténtico estándar, representa una ayuda 
incomparable tanto para el que desee iniciarse en la 
programación con discos cómo para el más curtido 
programador de ensamblador Especialmente intere- 
sante resulta el listado exhaustivamente comentado 
del DOS y los muchos programas de ejemplo, entre 
los que se incluye un completo paquete de JO hn 
ficheros. 


Extracto del contenido: 


— Todo sobre ficheros secuenciales 
— Listado de una gestión de ficheros 
— intercepción de mensajes de error 
— Gestión relativa de ficheros (!) 

— Listado DOS comentado 

— Disk-monitor 

— Gestor de discos 

— Siete nuevos comandos de disco 


— Acceso directo 


— Fundamentos de CP/M 
y mucho más. 


ESTE LIBRO HA SIDO ESCRITO POR: E 
Rolf Brúckmann, entusiasta técnico y programador de 
sistemas en la casa DATA BECKER, conocido por una 
multitud de obras estándar (64 interno, CPC interno...). 
El es el responsable de la parte técnica de la presente 
obra. Jórg Schieb es un experto en programación de 
ficheros y posee un dominio absoluto de la programa. 
ción en lenguaje de máquina. 
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